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CATALOGUES 
EN ASSEMBLEUR 

Les catalogues des imporlateurs 
et fabncants de logiciels etaient 
jusqu'a present ecnts en basic, n 
semble que beaucoup dentre 
eux passenl au langage machine: 
les iistes de produits disponibles 
defilent de plus en plus vile 1 Les 
nouveaux venus sont nombreux 
D et L. Epsilon. Sprites, etc... Et 
Ms demarrent avec des catalo- 
gues bien tournis. Les anciens 
comma Viti. Infogrames. Ere. Lo- 
riciels sortent des nouveaux pro- 
duits par dizaines el les construc- 
tors se mettent eux aussi sur le 
marche du logiciei. Us son! pour 
le moment au Sicob. mais des 
qu'ils von! en sortir nous allons 
etre submerges par des dizaines 
de nouveaux titres. c'est deja le 
cas dans le soft parade ou vous 
trouverez plusieurs nouveaux 
titres (ce qui veut dire que nous 
en avons refuse des dizaines!). 
Pour arriver a acheter tous ces 
nouveaux produits il n'y a que 
deux solutions: faites-vous enga- 
ger comme essayeur dans un 
journal (noire equipe est 
complete!) ou volez-les! 

EMPORTEZ 
LES MEUBLES 

Vous achete2 un Spectrum, un 
VIC 20 ou un ORIC ATMOS: un 
trou de 2 a 3000 francs dans 
voire budget. Vous voulez en- 
suite vous initier rapidement et 
vous vous inscrivez a un stage de 
formation et hop! 500 a 1500 f. 
de moins dans voire escarcelie; 
I'adhesion a un club finira de 
vous ruiner. Ou alors, il y a 
CONNEXIONS! Un groupe de 
programmeurs s'est arrange avec 



des constructeurs de matenels 
pour obtenir des conditions avan- 
tageuses. Vous vous inscrivez a 
un cours de formation chez 
CONNEXIONS 98 rue du Fau- 
bourg Poissonniere, vous suivez 
30 heures de cours de formation, 
vous etes inscnt au club et quand 
les cours sont termines, vous em- 
portez le micro sur lequel vous 
avez fait votre apprentissage. 
Vous pouvez meme. si vous vous 
debrouillez bien, seduire le pro- 
fesseur et I'emporter avec vous, 
surtout si vous etes une jeune el 
belle blonde! 

Ca vous cdutera quand meme 
2600 a 3200 francs selon le 
micro-ordinateur choisi. Faites 
vps comptes! 

EDUCATO 

ET PEDAGO SONT 

DANS UN BATO. 

Zim boum-boum, tacatac, c'est 
bien. If then else print gosub, 
c'est ires bien. Mais, bon sang de 
bonsoir, ca eduque un ordinateui 
ca pedagogue, ca insfruit, ca ap 
prend et c'est meme presque etu 
die pour! Le gouvernement le dit 
les professeurs sont d'accord 
les fabricants se frottent les 
mains et les cheres pel.tes teles 
blondes ont I'air de ne pas etre 
contre. Alors allons-y, faisons du 
logiciei pedago-educativo-dicta- 
tiel. Us son! venus. ils sont tous 
la: Matier, Nathan, Vifi, Infogra- 
mes, Loriciels. Ere. Sinclair, Ex- 
celvision, Matra, Thomson, j'en 
passe et des meilleurs. Oites, 
vous etes sOrs que ca va mar- 
cher? Les caisses de logiciels 
servironi-elles a autre chose qu'a 
se hisser sur le placard pour at- 
traper les confitures? Et si j'ai un 
Sinclair, mon papa un Apple, ma 



maman un T07, mon frere un 
Oric, mon inslituteur un Alice, 
mon proviseur un Excel vision, 
vous etes bien surs qu'on va arri- 
ver a s'entendre? Moi. jaimerai 
autant que tout le monde pos- 
sede la meme machine, mais qui 
va decider d'une standardisation? 
Les enseignants? Thomson? 
Matra? Excelvision? Goupil? 
Fabius? Mitterrand? JJSS? Mr X? 
Une standardisation nest d'ail- 
leurs probablement pas souhaita- 
ble puisqu'une selection naturelle 
se (era certainement: ce seront 
les meilleurs qui resteront (ou les 
plus riches ou les plus puissants 
ou les plus malins). De toutes 
facons. la profusion de logiciels 
educatifs en preparation, en 
cours de traduction ou deja sur le 
marche nous prepare une belle 
pagaille et ce seront probable- 
ment les enseignants qui seront 
les dmdons de la farce. Ils ont 
I'habitude et ils ne leur restent 
plus qu'a apprendre le basic, le 
logo, le forth, le LSE et I'assem- 
bleur. 

En parlant de nouveaux produits, 
la barre et les prix descendent: 
Sinclair, qui se veul etre I'initia- 
teur avec son ZX 81, sadresse 
aux enfants de 4 ans et les prix 
des 16 cassettes (malernelle a 
6eme) descendent a 65 francs 
maximum. Infogrames dans le 
style inverse propose un cariable 
rouge pour ["entree en sixieme: 
trente programmes reprennent 
tous les points educatifs de I'en- 
seignement primaire suivi jusqu'a 
la classe du cours moyen 
deuxieme annee. Ca tourne sur 
Alice, qui est aussi dans un car- 
table rouge et si I'enfant met ses 
petites affaires dans un iroisleme 
cariable rouge, Infogrames four- 
nit une brouette rouge pour le Ira- 
jet Ecole-maison. 

Charlemagne II 



EDITO 



Cette semaine arrive une pre- 
miere fournee de logiciels pour le 
Soft Parade, et des bons! 
Les concepteurs. surtout les 
americains sur APPLE et 
COMMODORE 64. arrivent a un 
degre de perfection tel que les 
Soft qui nous semblaient geniaux 
il n'y a pas 6 mois. semblent 
completement depasses au- 
jourd'hui. Les nouveaux venus 
prennent d'ailleurs presque tous 
la tele du Soft Parade, il n'y a 
guere que Lode Runner qui re- 
sists a ces attaques. il faut dire 
que ces! un des rares logiciels qui 
allie avec bonheur jeu d'arcades 
et |eu de reflexion. Lode Runner 
n arrive bientot, mais les ta- 
bleaux sont tellement sophisti- 
ques qu'i! est presque injouable. 
Sky Fox d'Electronics Arls me- 
lange lui aussi deux genres: le 
jeu d'arcades et la simulation de 
vol. j'ai eu le loisir de I'essayer 
celte semaine et il est epoustou- 
flant, aussi impressionnant que 
Summer Games par le graphrsme 
et I'interet du jeu et I'exploitaiion 
maximate des possibles de lor- 
dtnateur sur lequel il tourne. Avec 
Mr Robot and his factory et Bruce 
Lee. j'ai eu ma dose d'emerveille- 
meni cede semaine. le joystick 
de I'Hiver 84 sera une bonne 
cuvee. 



GerardCECCALDI 
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APPLE 

Dan STEEREY 
CANON X07 
Jean SPRIET 
CASIO FX 702P 

Thomas LEPRETTE 

COMMODORE 64 

Hugues BRUN 

VIC 20 

Did-er RE8UFFAT 

HP 41 

Stephane BRUNET 

HECTOR 

Regis CARLIER 
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Christophe LAYUS 

MZ 

Francois BAUDOIN 
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PC 1500 

J.Michel LUNATI 

ZX81 

Alain BRUNNER 

SPECTRUM 

Lionel PAQUIN 

TRS80 

E.MICHELUCCI 

TI99/4A(b.s.) 

Frederic LOUCHET 

TI99/4A(b.e.) 

Jacques MERCIER 

TO 7 

Lionel ROUVAREL 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAOUE MOIS 
1 voyage en Californie pour le meilleur logiciei CHAQUE TRI 
MESTRE (Reglemenl en page inteneure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07. 

HlPPOREBUS trouvez I expression qui se cache dans la B D de I'hippocampe Decompose en Iroissyllabes dans les trois premieres cases le tout ' aevidemment un rapport avec I 'inlormattque 
(solution en page inteneure) 
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MAC PAN 



Un dasstque du genre, avec gestion en langage ma- 
chine, s'it vous plait! Rten de tel pour organiser un 
concours familial.. Mais gare aux crampes de poignet. 
Mon record acruel est de 201 .770 points. 

Hugues BRUN 
Ce programme est decompose en deux parties. 
La premiere sert au chargement du langage machine contenu dans 
tes datas de ceite-a sauvez-la sur cassette avant de rentier la 
deuxieme. 

La deuxieme partie s'occupe de la geslion du jeu. Des que vous 
I'avez tape sauvez-la sur cassette derriere la premiere partie. 
Charge* la premiere partie el faites RUN, Des que le programme 
est execute, faites NEW. chargez la deuxieme et faites RUN. 
St vous voulez jouer avec la manette. connectez-la au port 1. Pour 
jouer avec le clavter. utilisez tes touches Y (haut). B (bas), G (gau- 
che). D (droit). 





1 nr ••*•«•*»••••■*.••••■•••••• 

2 REM MM* SPUN HUGUES • ••*• 

3 REM •••*•••*-•••«••••■•*••••- 

4 KOI ••••• PACMAH •••*• 
3 RE* ••••■■.-•.*».•«■■-•••••«• 

6 REM M«W C OIWO p O KC 64 ••••• 

58 POKE32.61 POKES*. 61 UR 

68 PRIHT-SMNNNLM INSTANT S.V.P.. 

26aee 0-48888 wii8 eosuea^eee 
2»10 d *8i89 M-19 »sus29e9a 

26829 0-48239 N-26 GOSUB29809 

26939 8-40399 n-33 GC5u»23eee 

28048 B-49339 N-20 OOSUR29980 



i H-341 

■ 0-21000 *=39 oosLwiseae" ,0** 

26198 0-22980 N-360OOSU829900 ^ 

26118 0-38888 N-55 CCSUB2989e (^ 

26128 IFZ>Cl?e216THE>*>RINT*ERR£UR DAH5 LES DATA* 
26158 END f\ 

a tw raoe-na**M . 

29810 REftDOf T*H_EFT«(Q«.l) V»»«tGNT*<0*. 1 ) J"^-^-4 

29828 A-ASC(T«> S*ftSC<V»> A f\ ^ 

29838 IFA>47AKDA<59THENP»«-48 \^_ y"*\ 

23848 [FFD64ANDFK7m«*>-A-33 \^"VV 

23858 IFS>«7ftMIIS<59Tr€HL-S-4e \*k 

29868 IFS>64flNSS<71THENL«S-53 ^"i— -^V 

29879 C-16*P1_ Z-2*C POXEX.C tCXT ! « 

29888 RETURN 

38888 DflTFro.CB.88.85.FE 

38085 DflTAA2,88.A3,FE.C9, 1R.D0. lE.RD.4F.9ft,C9.81 . DO. 17. CE.89. De.CA.D8.Ffl,RB.80 

38818 DATflE8, C3. 1 2. B9.9fl,R9.F8- 3D. 08. 08. A9. 88.90.91.118 

30828 DATflA3.FE,C9.1D.De.lF.ftD.4D.9A,C9,01.D8. 18. EE. 90.De.Cfi.D8,FR, 13,RD,00,D8 

30B30 DATRC9,F3.98.3A.ft9,lS.8D.80-D0,fl9, B2.3B.01.B8 

30040 DRTAA3.FE.C9.19.I»,9a.ArJ,4C,9A,C9.81.De,96.CE,01.D0,Cft.D9.Ffl 

30050 DATRA5.FE.C9. 1C. D8.8D.flD.4E. 9fi,C9. 81 ,08.86. EE. 81 , 00. CA, D8. FR.68 

38060 DflTA38.AD,39.9A.ED.58,9A,9D.5A,9A,60 

jgBTg DfiTAA9.e9,8P.61.9A,ft2.88,4E.5F.9A.9e.84,l8.6D.5A,9ft 6A.6E.61 .9A.CA.B0.F8 

30090 Ilfl1AA8,ee.38,ED.62.9fl,08,2E,63,9fl,0E.3A.9A,2A.28.9e,8«.Ea,62.9A.4C,86.9D 

30100 DATA6D.62.9fl,88,E9.E9.B8.04.6D,62,9A.I3.2E.63,9H,68 

38110 I)ATR18,D0,RD,63,9A,6O,67.9A,8D.67.9n,AS,64,9A,6D,66,9A,8D.66.9A.60 

38120 DATAAE.67.3fl,flD.66.9A,C9.01,F8,lC.Al),66.9A,C9,e2,F8,lC.flD,66,3A,C9,03 

38138 DATAF9.1C.flD,66.9A.C3.83.F9,JC.BD.e0.94.8D.70.9fl,60.BD,90.05.9TJ,79.9A 

781 49 DATA6e.8D,08.06.8D.70.9A.60,BB.90.87.3TJ.70,9A.69.BD.98.08,eB,?8.9A,60 

38158 DATRAC.78.9R,98,C9,2E.F0.1ft,98.C9.31,F9,]5,98.C9,2A,F9.19.98.C9,68.F9.0B 

38168 DHTflSe, C9, 29. F0. 86, ft9.88. SB. 71,98, 60, A9, 91,80.71,98.68 

39179 DflTPfirj.9!.BO,3B,39.9fl.fl9.2fl,8B.5e,9fl,29,88.9D.ft9,03,3O,5F.9A.28.3A,9D 

38138 DATAflD,60.9fl.8D,54.9A,An,6t.9A,8D.63,9R,ftD,99,D9,8D.59.9A.S9,14.9B,33,9A 

38198 I»n-A20.98.9D.fl9.9e.3B,62.9fl.A9.9e.29.6C.9D,AD.&3.9fl,8D,67,9A.fl9,8A.3D.66 

38280 DBTA3A.29.9E.9D.29.De.3B.29.34.9E.AD.71,9A,8D,4F.9A 

39219 ^ [ flAD,91,«>.9D.53.9fl.fl9.2R.8D.58.9A,20,88,9D,R9,05.3D.5F,9fl,28,3A.9D 

3 8220 pATflflD.68,9A.8D,64.9A,AD,61.9A.8D.65.3A.flD,90,D0,BD.59.9A,fl9.e4.8D.S8.9R 

38230 DATA28.98.3D.fl9.9e.3D,62.?fl.ft9.80.29,6C.9D.flD.63.3A.8D.67,9A,R9.00.8D.66 

:82<e WTFm«,?g.SE.3D.28.D0.9B.20.34,9e,flD.7I.9fl.9D,4B.9A 

38258 DATHAD,91,I».8D,59,9A,A9.32.9D.38.9A.20.B8,9D,A9.05.8D.5F.9A,29.3A.9D 

38268 DATRAD.68.9fl.8D.64.9A.flB.6].9R.8D.65.9fl.RD.09,D8.8D.59.3A.»9,9C.3D.58.<»R 

38278 DATA28, 08,9B,fl9. 88, 3D, 62,90. fl9.98.20.ee, 90. HD. 63. 9A.8D. 67, 9R.H9, 08. 0B.66 

38288 DATR3fl.28.?E.9D,28.D9,9D,29,34.9E.flD.71,9fl.9B.4C,9R 

38278 DATRPD.9|.IJO.BI1.59,9A,R9,Z2,gD,3e,9n,20,e8.3D,R9,93,8D,5F,9fl,?e.3fl,9D 

38388 BfiTAAD,60,9fl.BB,64,9ft,RO.61,9fl,BD,63,3R,RD,9e,B9,8D,39,9fl,R9.0C,3D.58.9R 

30313 EflTA28,98.9D.R9,83.8D.62.9fl.R9.39.23.6C.9D.RD.63,9A,3D.S7,9fl,A9,90,8D,66 

30328 DATA9n,20,9E.9D,28.De.9D,20,34,9E,Rfl,71,9fl.8D.4E,9fl,20,40,9C,4C.28.4E 

38630 BRTRAD,01.I».8Il.39.3A,A9.2fl,8B,38,9n,28,08,9B,R9,83,8D,3F,9A.2e,3fl,9D 

30540 DATftftB.60,9fl,8D,64.9fl,flfl,61,9«,8D.65,9fl,RB,e8,OB,8D,39.9A.R9,eC.eD.3e,9A 

38650 rjAT«29.98.3D.fl9,9e,8D.62.9A,A9.B0,28,6C.9D,AD,e3,9A,8D,67,9A,A9,08,BD,66 

30660 DATA9A.29.9E.9n,20,D8,9D 

38670 DATAR9,98.8D,E9.99.HD.78.9A.C9.2E,D0,8E,R9,8fl.3D.E9.99.ft9.ei.lB.6D.EB.99 

38688 DflTA8TJ.EB.33.flD.73,3R-C9,3!.D8,9E.»9 

39690 *f?TR32.9D,E9,39.A9.91,18.6D.EB.99.3D.EB.99 

30780 DmflF€.67.?fl.RD.66.9fl.C9,90,I)e,93.A3,29,9D,8e,34.AB.66.9fl.C9,0i.D0.93 

30710 DflTRP9,29.9D.99.95.RD,66.9A,C9.92.De,83,R9,29.9D.89.06.RB,66.9A.C9.83 

30729 *WTAT».95.A3.29.3D.ee.07.fll>,66.9fl.C9.94,De.85.fl9,28,9D.0e.88 

38738 DATAR9,£3.CD.ES.33.D9,95.fl9.0I,8D.EC.99 

38748 DflTflflD,E8,99.C9.00,D0,33.A5.FE.C9. 19.D0.03. A9.F6. 8D.F8,87. A3.FE.C9, 1C 

39730 DATflD0.95.R3.F7. 3D, F8. 07, R5,FE,C9. tR.II0.85,ft9.F8,8D.F3,e7.fl3,FE,C9, 10. B8 

30769 DATfl03.Ff3,F9.8D.F8.97.A9,Bl,9D.E8.99.C9.9e.De.8A,R9,99,9D.E9.99.R9 

38779 DATAF3.?D.F8.97,4C,F9,33 

31130 DATAHr;.79.3fl.39,C9.2E,F9.1A.?3.i;9.'-l.F9.!3.9e.C9,3D.F9.13.99.C9,60,F9.0B 

31168 I-i7R?9.C3,29,F9,96.ft9.9e.8D.71.9A.60.FI9.0I.8D.71,9A,68 

31288 »TRfl9, 98. 80. 34. 99. HE. 34, 99- BO. 92. 09. CD. 90. 00. [«• 1 2. BO. 03. 09. CD. 91, 08. TO 

31218 DRTA0K.8A. 3D. 36. 39. 83.01,80.37, 99, 69 

31229 DfiTflBD,03. 00-30.59. 98. A3. 32. 80, 38,38.20. 98. 90. R9. 85. 8P.5F.9A. 20. 3B.9B 

31238 OflTAAD.60.3A.9D.64.9A,AO,61.3fl,3D,65,3fl.RE.34,?9.BD.82.De.8D.59,9fl 
31240 DATAfl9.8C,&D.33.3R.23.88.9D.ft9.98.gD.62.3*t,R9.99.29.6C.9D.RD.63.9A 

31239 DflTPeB.67.9fl.fl9.9e.3D.66,9fl.29.3E,9D,29.D0.3D.29.88.32.RD.?l,9A.9D.4C,9A 
31268 DflTflA9.9e,8D.64,9fl,A9,27,9D.63.9A,23.9E.9D.20,DO.9D.28,88.32 

31265 DflTAflB.71.9A.8D.4F,3A 

31278 DATRA9, 88. 3D. 64. 9A, 89,82.80,63. 98.28, 9E. 3D 

31275 DATR20. 08. 90.28,88. 32. AD. 71, 9fl. 30,40. 9A 

31288 DPTAR9.00.8B.64,9A.R9,27,9D.63.9A.29.3E.9D 

31295 DHT«28.D8.3D.29.98,32,RD.71.9A,8D,4E.9A 

31238 DATflPD. 91. 99. 63, R2, 29- 93. 8D. 91. 93- AA.BD. 4C, 3fl.C3.01 .fJ0,Fl 

31293 DRT«3E.58.98.AE.34,39 

31389 DRTnBD.C0.99.CD,33.38,F0,E3 

31318 r«7F«D.38.38,C9.e8,D0.8E.R9.92.3D.68.98.BD,e3.D0,38,E9.98.9D.03.De.RB,38 

31329 DRTR?9.C3.8I.D0.8E.R3,03.9D.60.99.BD.02.D0.!8.63,93.3D,82,D0 

31323 WfflRTJ.38,?3.r.9,82.D0.9e,R9.9e 

31339 ^TR->O.69.9P.BD.93.O8,t8,69,09.9D.e3.De.flD.58.98.r:9,83.D8,9E.fl9,01,JD-60 

31343 nflTR9e.BD.82,De.33.E3.88.?B,02.D0 

31339 DATRAE. 34, 93, BD. 02. 09. CD. 09, 08. 08. 12. »D. 03. 09, CD. 9 1.08.08 

31360 IWTR0R,9A,8D.06.99,A9,9I.8D.87.39.60 

31378 OArftflD,34,3?,l8,63,92,3O,34.99.CD.00.99.F0.83.4C.F3,55,4C.30,75 

32095 DflTAfl9,00.9D,3B.38 

32918 WRAD,E3.39.C9,32,D0,04,A9.00,83,A1,A3.A1,C9,05.«0, 13, fl9.FF,8D. 13,08 

32920 DATAfl9,78.CD.38.D0.D0.13.R9.9fl.CB.81.Be.D0,8E.R9.91,8D,8B,98.ft9,DF,8D,13 

32838 DRTHD8.fl9,ll,83.R1.60 

J REM •••••••«•••••■••■•■••*••?• 

4 REM •»••• SPUN HJDijE';. ■•■•■ 
3 PEB ••■•••••••>**•*••#•••••■•# 

6 PEfl ••••• F8CM4 ••••■ 

7 E<n •••f*»**>>*>*>> •••• 

8 *En t»»«* cormrwE 64 ••••• 

9 PEP1 ••**•*•••*«••••*••••••■-•* 



COMMODORE 64 



21 PCT:E52 .61 FDKE56.6 1-CL B 

23 FPINT-W0B»0lriflBcl3)*aRVIER <2>" 

24 IOTJT-|*«0B«000«CHOIX -,U 1FMO1THZKS0T038 

25 PCKE40801.1 PCKE48882.229 

26 P0rE28287.234 POKE40083 , 234 

27 POXE2821S-253 POKE40102.Z53 
20 POKE28229.231 P(»:E40610,251 

29 FTJKE28249.247 Ft*-.E40946.247 G07039 

30 POXE49001.283 POXE48882.8 

31 Pr*E28287,23 PCfE49983 . 25 

32 POKE20218.23 POKE48102.23 

33 POKE20229.26 FWE40818.26 

34 pr»-E28240,29:PO»'E40e46.£3 

39 mA^'TwammmmnjH ikstamt s.v.p 

40 DIH C(4) :POKE2841,13 : POKE2842.13 FtKE2943. 13 POXE2044. 13 
45 REM INITIALISATION DES SF1»ITES 

48 PET1 DESSIMS FflC MflM 

59 FOAX^TO62 ; POKE15690>X,8'POCE13908*X.e PCKE15872»X,8 P0KE15936*X.9 

60 PCTE932+X,8'PC*:E13744*X,e PTJKEB96*X, 8 

65 F13KEieeGe*X,9 PWEiG864tX.9-POXEI6123*X,0 

66 POXE16192*X.0:POXZ16256*X,8 POKEI6328+X,0'tCXT 
70 FOPX-21T058 

88 REHDQ P0KE13638+X,Q-tCXT 

99 PRTR8. 68, 0.3. 255. 9. 1,253. 128. 3. 255. 192,3,255. 192 

188 DATR3, 255. 192. 3. 255, 192. 1,255, 123. 9.255. 9. 9,60. 8 

118 F0RX-19T034 

128 READO ' POKE 1 5744+X . PTVE 1 5879-X . Q : NEXT 

138 DATA9.8.9.66,9.e,193-99, 195.9,1.231.128.1.231,128.1.253-128,1,233.128 

148 0ATR8, 235, 8, 8, 235. 0.9. 126. 9. 8. 24- 8.9 

150 FCPX-21TQ58 

160 PEHDQ POXE15872»X,0 NEXT 

170 DATR8. 60. 0,0. 255. 9. 1,255, 123. 0.63. 128. 8. 15. 192. 8, 15, 192, 1,63.128,8.253.128 

130 DflTfi0.255,9,8.68.8 

190 F0PX-21TO38 

283 PEflDQ PCrE15936*X,0MEXT 

219 DflTA0, 60, 9.9, 233, 0,1. 255, 128. 1.252. 8,3, 240. 0,3. 248. 0.1. 252. 0.1.255.128 

229 DATA9.255,9,8,68.9 

238 FOPX-0TO14 O-F'EEXf 13826*X»3) Ft>:E15826*X»3.PEEK<13e28*>C«3> 

249 PC*E15S28*X*3.e-NEXT 

339 REM DES3INS FRUITS F0MJ3 

368 F0RX-21T058 REAW : FWE 1 6888*X . HEXT 

365 DATH8,24,0,3, 153-0, 1.255.128,3,233, 192,3.255. 192.3.255.192.3,253. 192 

373 DATfll, 235. 123,0.255.8.0.69-8 

373 FORX-=21T039 READO POKE16864tX.0NEXT 

388 DflTfl8. 24. 9. 9. 24, 9, 9, 179.9,1.65.9,8.179,9,1.83.9,0.178,8,0.94.0.0.49.9.0,16,8 
385 F0RX-2IT058 REAM POKE 1 6 1 28*X , Q : NEXT 

399 DATfl8,24,9.0.24,3.3. 126.8.0,255.9.0. 126.0.9. 126.9,8,235.8. 1.233.128. 1.253 

395 DflTfll28.0.233,8 

409 F0RX>21T059 RERDO FT»;E16132*X,0-NEXT 

433 DATA9. 9, 132, 8, 9. 132,9,1.192.9.3,192.9.7.128,0.13,123,8,31,8,0.62.0.8.248.8 

419 DATR3. 192.8 

420 FOP-X^lTOSePERM POKE16256*X,0 NEXT COT0588 
425 DATA 9,69.8.0. 126.9.0. 193.8,0- 129. 128 

438 DATS 0.1. 128. 0-3, 9,3, 6,0. 0.12. 0.8. 9,8, 0,12.0 

390 StEn DESSINS FAHTOMES 

315 F0PX=21T039 PEflDO Ft>-£e32*X.0:HEXT 

328 DATA0-69. 9. 8. 126, 9,9. 253. 9. 1.133. 128. 1.153.128.1.233,128.1.253.128 

323 DATA]. 235. 128, 1,133. 128, 1,133. 128 

333 F0P:<'=26T043 PEflDQ ■ POKE 896* X. Q • NEXT 

560 DATR8, 8, 68. 0,8, 178, 8, 8. 179.8.0.239.0.9,238,8,8,8 

562 G0T0379 

363 GOSUB26898 EF-T SC-8: DR-.5 ftl-8 P0KE33278,6 V-3 

579 0OSJJB3888 PEF1 PPESENTRTIOH 

578 POKE2345.230 POKE2946.230 PCrE2847.233 POKE53293.2 P0KE33294,2, POKE 33292. 2 

579 DA=1 F=r?C«8 BV-9 NC-1PF-400 P0KE33292.2 

389 PR I HT ' H . 11 111 I IHW IM MM IIWtHWIWIWM PAC MAM W 

531 ppiwmmm mmmmm mm/iEs -.v 

628 OOSUB2880 : 00SUF9393 P0KE394838 FOffi39494 , : POKE39393 . 

639 SVS49608 

649 SC-SC*PEEK'39401).PEEKf3983n«PF 

638 roiuTrifiw&t- mmamammmmr .scew 

663 IFF^EK<3940IJ-39THEMOOTOI59ee 
679 IFPEEK(39404).1THENGOTO 23890 
689 IFPEEKO93831-1THEH00T028838 
719 rJJTC*30 

2900 PRIKT-W , , , , 

2919 PPINT-I I I • 1 



~1 f 



r -Q-.. 





2828 PRINT 
2838 PRINT-I 
2849 PRINT" I 
2030 PRINT" 1 

2969 PRIHT-I 

2970 PRINT" t 
2880 PPIHT-I 
2899 PPItn- ' 
2189 PRINT' , 
2119 PPINT-I 
2128 PRINT-I 
2138 PRINT" I 
2140 PRIMT-J 
2158 PRINT-I 
2168 PPIMT-' 
2179 PRINT'* 
2188 PRINT- 
2198 PRINT- 
2200 PRIKI ■ 
2210 PRINT* 
2228 PRINT- 
2230 PP1NT- 
2240 PRINT" 
2239 PPIHT-i 
2318 PRINT") 
2328 PRINT-HB 
2338 PRINT-«.II 
2348 PRIHT-H. 
2358 PPINT-M.M 
2368 PRINT-K.H 
2370 PRINT-H.K 
2390 PRItfl 
2398 PPIN 
2488 PRIN1 
2410 PRINT'M. 
2420 PPINT-M.il 
2430 PRIh 
2440 PRINT-«. 
2438 PPiHT"H.»L» 
2<69 PR1MT-M.il. 
2479 PRINT'M. H.IM. 
2488 PRINT*!-- ■ 

-« imrww 

2518 PRINT 'N.H 

2328 PPINT-M. 

2338 PFIffT-M. 

269B RETURN 

P808 REM PPESENTATIOH 

8882 POKE93 26g,0;POKE3328 1,0 POKE33288.0 

8810 ntlHT-m • • ■ * •• *• • 

?.a;.(.? F*mi"-» * • • • *• •• • 




0130 P0KE3323I . 128 P0KE33233 . 1 52 POKE33233 . 1 76 POKE33237.200 

8140 PWE33269.38 V«3 

8289 RRINTTRB<14>-«-408 P01NTS- 

3210 PR1NTTAB(14)-I9*00O POINTS* 

8228 PPINTTAB<I4>--M1288 POINTS* 

8230 FTUHTTHB<14)-am688 POINTS* 

8499 FPRy=9TrrW«> HEX! POKE33269.0 

8388 RETIPN 

9393 REM POSITIONS INITALES 

9698 XP=128 VP-178 

9610 C<l)-2 C(2>-3 C<3)-8 CC4>-3 

9649 REM CttJLEUR 

9638 POKE33287.7 POKE53288.C< 1 J POKE33289.C(2> POKE33298 . C ( 3 ) P0KE33291 -C<41 

9660 ROKE2848.243 POKE 204 1,13 POKE2042.I3 POKE2843. 13 POKE2944. 13 

9679 POKE33230.1I2 POKE3323 I , 1 38 POKC33232. 129 PUKE33233, 130 

9609 P0ME33234.128 POKE33233, 138 POKE33248, 120 POKE33249, 178 

9698 P0KE33236,II2 POKE53237.I30. POKE53269.31 

9799 POKE39168.F42 

9738 POKE39800,10 POKE 390 10, 10 POKE39812. 10 POKE 398 I 4, 18 

9749 POKE33258.120 POKE33259, 134 

9730 POKE53264.I92 POKE53261 -230 POKE53263.230 

9769 FTrE53260.!9:POKE53262.33 

?9?» PETURH 

15998 POKE33288.14 POKE33289. 14 POKE33290.I4 POKE53291.I4 M-0 

13983 FOKE54296.13 POKE34279.73 POKE54238.64 POKE34283. 240 

13810 F0R7-138*ir»Tr08STEP-l 

13828 SVS48688 

13024 PPIin*trTRB<30>-! 



13823 SC-SC*PEEK':39401)»PEEK<3983I)»PF 
I3838 PRmi-M-TRBC30)-999tM9000MtM 
15040 IFF^EK<39401)-38THEMTJOTO13990 



r.sc 



13938 IFFEEK(39303>-lTMENrjOTO16«.„ 
13060 IFPEEK'39484)-1THENOOTO23800 
13070 IFZ<20TNENPOKE34283.I7 POKE34283.9 

13991 HBtTZ 

15189 POKE33283.C< I ) P0KE33289.C(2> POKE33290.CO) POXE33291 -C<4) OOT0630 
16809 REM PAOtflN MANGE UN FANTOME 
16910 IFPEEX/39382>-0THEM.J-I -GOTO16048 
16020 IFPEEX( 39382 )-2THENJ-2 GOTOI6048 
16823 IFPEEK(39302)-4TMENI-3 00T016849 

16838 IFPEEK<39382)-6TMENJ-4 GOTOI6049 
16037 GOT0I3868 

16048 IF<PEEK'33287*J)ANO13»-C(J)TMEHOCTO20038 

16045 M-H*l SC-SC*4004N 

16848 POKE33287*J.l POKE2048-J. 14 

16839 FOPX-PEEK<53243*2!J)TO129STEP3OH<l20-PEEK'33243.?»l))t2 Pr^E33240.2«J,X 
16855 NEXT 

16868 FriPV-PEEX'33249»2«J>TOI30STEF-SON(130-PEEK(33249*2tJ))»2 POKE33249.2»J.V 

Suite page 3 



8969 PPIHT"T» • 

8965 PV I NT - •MMtltl 
3879 FORX-0TO3908 NE> 
8073 POKE33235 2 F0KF.332893 P0KE33298.9 POKE33291.3 



•JTE'JP BRUM MUOUE?- 



9898 PPIllirflPi-191- *.* 18 POINTS* 

9189 PPIHTTflB'l0)-*B» *• me POINTS- 

8120 POKE33259. 194 RGKE33232, 104 POKE 3 3234 . 1 94 POXE33236. 10- 



Kvjr^S 




HEBDOGiaEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT : 



□ CHEQUE 



r j ccp 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIOUES : 



L'AVENTURIER X 



PC 1500 



Une belle pnncesse est prisonmere. Vous devez la de- 
livrer en reussissant trois tests. Comme dans toute his- 
toire qui se respecte. a la (in, la belle princesse epouse 
le chevalier qui aura reussi a la delivrer el.. lis vecurent 
heureux et eurent beaucoup d'enfants...? Eh bien 
non... Que diable, nous sommes presque au 21 erne 
siecle et cette fin trop banale, a ete reactualisee. Le 
tout graphiquement bien entendu. 

Jean Michel LUNATI 



iz-.Rzn non du pro 

GRAHT1E:l AUENT 
URIEft X 

13:U«(STATUS 2)-3 
8:fOR I=1T0 8: 
POKE <U+<1-1>* 
2>, 1,0:NEXT 19 
POKE U+17,8: 
POKE U+19,8: 
POKE U*18. 1 

14: GOTO 83 

15:R£M P&n MORT 

16:U»(STATUS 2>-3 
8: J0=P£EK <U+I 
8>:X=P£EK <U+2 
*JO-l>: IF X<5 
POKE (U+2»J0-1 
>,2+X:GOT0 23 

17:POKE (U+(J0-1> 
»2>,4:n=PEEK ( 
U*17>:n»n+i:N* 
PEEK (U-+16):Z* 
"-H0RT-: IF N>1 
LET Z*=Z*+"S" 

18: IF n>*NUAIT 0: 
PRINT "UOUS ET 
ES -iZ«:F0R 1= 
25T0 75: BEEP 1 
, I, 5: BEEP 1,28 
B- 1, 5: NEXT U 
GOTO 3785 

I9:P0KE (U+l?>,n: 
WAIT 8:PRINT n 

JOUEUR ";J0i; 
WAIT :PRJNT • 
UOUS ETES TROP 

29:PRIMT "NUL.LA 
PRINCESSE MER! 
TE-:UfiIT 8: 
PRINT "BEAUCOU 

P niEUX ": 

BEEP 7, 255, 108 

21:PRINT "UOILA U 
OTRE NQUUELLE" 
:BEEP 7,255, IB 
0:PRINT "nflJSO 

GPRINT "406872 

?F 726048" 
22:R£n PGrt PASSAG 

E JOUEUR SUlUA 

NT 
23:U-STATUS 2-30: 

N-PEEK <U+16>: 

JO=PEEK (U+18> 

: JO= JO* I 
24i IF (JO>N>ANO ( 

PEEK (U+I9)=5) 

SOTO "VAINQUEU 

20: IF JONLET JO= 

28:POKE (U+18),J0 
:£T=PE£K <U+(J 
0-I)*2):IF ET> 
36OT0 23 

30:WAJT 0-.PRINT " 
JOUEUR "!J0!" 
ETAPE ";:WAIT 
:PRINT ET:ON E 
TGOTO 185, 1881 

, 1400 

32: REM PASSAGE RE 
USSI 

34:U=STATuS 2-30: 
;0=PEEK (U+18) 
:£=U+U0-1)*2: 
POKE E, (PEEK < 
E>*1>:G0T0 23 

38:"UAINQUEUR" 
CLEAR :DIrt 0(8 
>:U=STATUS 2-3 
8 

38:F0R I = 1T0 B:A( 
I>=PEEK (U+2»( 
I-l»l IF 0(I> = 
5LET K=K+1 

40INEXT HAM* UA 



1N0UEUR": IF K> 
1LET A*=A»*"S" 

42:uAIT 0:PR1NT " 
IL V A "jKj: 
WAIT :PRINT A* 
IFOR 1 = 1 TO 8 

44: IF A(I>=5WAIT 
0:PRINT "JOUEU 
R "i;wiT : 
PRINT 1:2=1 

46:nEXT 11 IF K=l 
SOTO 52 

48:UAIT :PRINT "V 
U QUE LA PRINC 
ESSE NE":PRINT 
"PEUT EN EPOUS 
ER Ou UN, ■■ 

50: PR I NT "ELLE CH 
OISIT AU HflSAR 
D LE":WAIT 0: 
PRINT "JOUEUR 
: ;Z:FOR 1 = 15 
TO 58: BEEP 1, I 
,5: NEXT I 

51 : POKE (U+18), Z 

52: GOTO 3888 

80: END 

81:REn DEBUT DU J 
Ell 

85:CLS : INPUT "NO 
flBRE DE JOUEUR 
(1-8) -;n:IF ( 
N<1)0R <N>8> 
60T0 85 

30:POKE (STATUS 2 
-14>,N 
180:CLEAR :WA1T 0: 
PRINT "BONJOUR 
! LE JEU COHME 
NCE-:B£EP 8 
185:WA1T 100:PR!NT 
"TEST DE CHANC 
E" 
187:REn l«r TEST 
113:"C01NCEUR" 

INPUT "REGIES 
(0/N) ";R»:iF 
LEFT* (R*, !)•■ 
N-GOTO 280 
J20:WAIT :PRINT "U 

ho«Mic":UA]T 
:PRINT "iy«ibol 
iM par ";: 
GPRINT "484840 
40"; :WA1T 
130:PRINT ■ .Uout" 
:PRINT "0*vez 

u«":PRINT 'lor. 
9t «»pt pot* i b I 
c dan* ufi" 

140:PRINT "Endroi*. 

":PRINT "d««C 
tnd.Uout vout 
dirlgez" 
150:PRINT "sracf i 
P=dro;te, 0=90 
ix:he":PRlNT "P 
our t\rt admi* 
au t«tt* 
160:PRINT "tulwam 
; I uout faut" 
:PRINT "Plut d 
c 17^28. ":UfllT 
0:PRINT "BONNE 

CHANCE...": 
BEEP 5 
200JREM DEBUT COIN 

CEUR 
281: "AIT 8: CLEAR : 

U=0 
286: CLS : CURSOR 12 
:GPRINT ■00484 
04048" 
218:0in T<11),A*(7 
),K*(?>:P=12:A 
»(8)s"818i8181 
8181":A»(I>="0 
30303030303" 
21l:K»(0) = "01414M 
1410I":K*(1)=" 
03434 3434303" 
220:A«<2)-"0707878 



Lorsque vous aurez reussi a passer avec succes ces 3 lesls, vous 
accederez a I'etape finale.. Mais n'en disons pas plus, regar- 
dez. Sans commentate! 

N.B: si vous trouvez cerlaines scenes ~osees" vous vous Irompez. 
comment pourrait-on accuser quelques octets de je ne sais quelle 
infamie?? 

Le programme comporte a la ligne 3900 un REM contenant 40 
zeros. Vous pouvez vous abstenir de recopier toutes les aulres re- 
marques (le programme y perd en lisibilite) mais conservez celle-ci. 
Son r6le est primordial pour le bon deroulement du programme. 




78787" : A«<3>=" 
0F8F0F0FBF0F": 
A»(4)="1F1F1F1 
F1F1F" 

221:K«(2)="0747474 
?4707":K»(3>=" 
0F4F4F4F4F0F": 
K»(4)="1F5F5F5 
F5F1F" 

230:A«(5)="3F3F3F3 
F3F3F"!A«(6)=" 
7F7F7F7F7F7F" 

231:K*(5)="3F7F7F7 
F7F3F":K»(6)=" 
7F7F7F7F7F7F" 

240:FOR 1=0TO 7: 
CURSOR I: 
GPRINT A«(6): 
CURSOR 25-1: 
GPRINT A»(6): 
NEXT I: TIME =0 

250:"D0I"RANDOn :D 
=RNO 10:T(D)=T 
(D)*l: IF T<D)> 
6GOT0 "A81" 

260: Z=Z*!: IF 0*7=P 
CURSOR P: 
GPRINT K*(T(D) 
>:GOT0 288 

270: CURSOR 0+7: 

GPRINT A»(T(D) 
> 

280: IF D+7-PAND T( 
D>=6G0TO "F01" 

290:"A8J"BEEP 1,5* 
D:FOR I-1T0 U: 
C»=INKEY» :1F 
C»=""NEXT l: 
GOTO "D81" 

295: REH DEPLACEHEN 
T DE L MOHHE 

380: IF C»=' , Q"GOTO 
"001" 

310; IF C«="P"GOTO 

"P01" 

320:GOTO ■'Dei" 

330: "001" IF P=80R 
T(P-8>>5BEEP 1 
, 100,5:GOTO "D 
81- 

340: CURSOR P: 

GPRINT A«<T(P- 
7)>:P=P-U 
CURSOR P: 
GPRINT K*CT(P- 
?J>:GOTO "D81" 

350:"P8riF P=1?0R 
T(P-6)>58EEP 1 
,255, 5: GOTO "D 
01- 

360: CURSOR P: 

GPRINT A»(T(P- 
7»lP-P*li 
CURSOR P: 
GPRINT K»(T(P- 
7>):G0T0 "001" 

400:"F0r-T = TlME : 
FOR I=255T0 10 
8STEP -15: BEEP 
2, I, 10: NEXT II 
CLS :PRINT "UO 
US ETES COINCE 
":BEEP I, 255,4 
00 

405:REr1 CALCUL ET 
AFF1CHAGE DU T 
EflPS 

4)0:n=INT (T¥108>: 
S=188*(100*T-n 
):PRINT "EN";n 
;•' ■in.'iS;- * 
*c.":8EEP 15, 5 

415:REn TEST+AFF1C 

HAGE NOTE 
420:NO=INT (100*Z/ 

3)^188:PRINT ■ 

NOTE :";N0;" S 

UR 28": BEEP 1, 

Z, 2880 
438: IF NO>=17G0T0 

32 
435:CLS :WAIT 188: 

PRINT "PAS ASS 

E2 BON. . . 



448: GOTO IS 

l800:REn 2nd TEST 

1001:"FORCE"WA1T 

180:PRINT "T 

EST OE FORCE 

1085:CLEAR :0If1 A 
•(3)*26,B*(8 
)*8:A*(1>="0 
C087C1F1F7CB 
80F , ■:A«(2) = '■ 
0C087C1F1F7C 
088884828 

18e6:A*(2J= M 0C087 
C1F1F7C08080 
40281 M :A»(3) 
="0C4B3C1F1F 



181B:A»{0)= "0C1E7 

B57577B1E8C: 
t020:B*(0}="08880 

1021: INPUT "REGLE 
S?(0'N5 ";R* 
:IF LEFT* (R 
*, 1)="N"GOTO 
1830 

1822:uAlT :PRINT 
"UOUS D1RIGE 
2 UN HOnnE": 
WAIT 0:PRINT 
"SYMBOLISE P 
AR ";:UAIT : 
GPRINT A»(l) 

1023:PRINT "bouse 
r:0=6AUCHE,E 
=DR01TE":F0R 
1 = 1 TO 3:HAIT 
8:PRINT "TOU 
CHE:"; l!"=PO 
SITION "J! 
WAIT 

1824:GPRINT A«(l) 
:NEXT UUftlT 
0:PRINT "UOU 
S OEUEZ TUER 

";:WflIT : 
GPRINT A*(0> 

1825:PRINT "nAIS 
UOUS NE PQUU 
EZ":PRINT "U 
TILISER LA P 
OSITION 3" 

1826:PRINT "QU UN 
E F01S. (TEMP 
S LiniTEV 

1027:PRINT "L EPE 
E DOIT ETRE 
EN ":PR1NT " 
POSITION 3 P 
OUR TUER." 

1830:CLS :UA1T 0: 
GCURSOR 0: 
GPRINT "7F7F 
7C7C7C7C7F7F 
7C7C7C7F7F": 
GCURSOR 146: 
GPRINT "7F7F 
7C7C7C7C7F7F 

1040:B=i:PO=55: 
WAU 8:R=B0 

I0b0:GCURSOR PO- I 
:GPRINT "88" 
:A*(B};8*(0) 
: GCURSOR R: 
GPRINT A*<8) 

1068:2=Z+1:a*= 

INKEY* :B1= 
UPL <A«) 

1862: REfl TEST TEH 
PS ECOULE 

1063:REn ET TEST 
TOUCHE INCOR 
RECTE 

1865: IF (Z-Z8>6> 
AND (B=3)AN0 
(N-l)BEEP l: 
N=2:B=i:GOT0 

1066: IF BK10R Bl 
>3G0TO 1080 

!067:R£M RELEUE E 
PEE 



1069: IF N=20ND 91 
'3LET 81=2 

1870:9=81: IF 8=3 
LET N=1=Z8=Z 
:Z1=Z1+1: 
GOTO 1182 

1875:G0T0 1180 

1877:REn DEPLACEn 
ENT DU SUERfi 
IER 

1880: IF O*="0"LET 
PO=PO-l:P0=< 
P0>14)*P0*<P 
0<15)*I5 

1890: IF A*="E"LET 
P0-P0+I:P0=< 
PO<150)*PO:J 
=I-J: IF J=l 
GOTO 1850 

1100: REH DEPL.BET 
E 

IIBKREH N=2 =>P£ 
RDU.LA BETE 
AUANCE 

1182: IF N=2LET R= 
R-3:G0TO 118 
5 

1I03:R=R+S-4*RND 
3:R=(R<15)*1 
5*(R>148I*I4 
8+(R>=0AND R 
<141)*R 

H84:REn EST-ON n 
ORT 

1185: IF Z1>6LET N 



: IF R<P0+4 
GOTO 1288 

:REt1 BETE TUE 
E? 

: IF (R>P0*3) 
ANO (R<P0*9) 
AND (8=3) 
BEEP 11 
GCURSOR R: 
GPRINT B*(8) 
; "68727F7260 
0";B*(8): 
GOTO 1388 

:REH DEPLACEn 
ENT 9ETE 

:GCURSOR R-4: 
GPRINT 8*{0> 
;A*(8);8*(8) 
:GOTO 1858 

:REn ON EST 
TORT 

:BEEP 5:CLS : 
PRINT "PERDU 
":BEEP 10: 
GOTO 16 

:REM LA 8ETE 
EST MORTE 

:BEEP 8:CLS : 

°R1NT "GAGNE 

..PLUS QU UN 

TEST.": BEEP 

10 



PRINT "TEST 
HA81LETE": 
WAIT : INPUT 
"REGLES?(0'N 
> "IR01IF 
LEFT* (R», 1) 
="N"G0T0 "GR 
OTTE" 
1410:WA!T :PRINT 
"UOUS DIR1GE 
Z ON HOnnE": 
WAIT 81PRINT 
"SYMBOLISE P 
AR M ; :GPRINT 
"8888";: 
PRINT ".UOUS 

1428:W0IT :PR1NT 
" DEUE2- : 
PRINT "LUI F 
AIRE PASSER 
LA GROTTE" 

143B:PRINT "GRACE 



AUX TOUCHES 
: ":WA1T 0: 
GPRINT "8482 
7F8284";: 
WAIT :PRINT 
" POUR rlONTE 
R, ":WAIT 8 

i:GPRINT "1828 
7F2818";: 
WAIT :PRINT 
" POUR OESCE 
NDRE":PRINT 
"PUIS ALLER 
UOUS RANGER" 

i:WAIT 0:PRINT 
"DANS L ENCO 
CHE : ";: 
WAIT :6PRINT 
"88141C": 
WAIT 0:PR1NT 
"BONNE CHANC 
E. . ,":BEEP 8 

i:PRINT "POUR 
COrtMENCER : " 

i:WA1T 0:PR1NT 
"ENFONCEZ "1 
: GPRINT "182 
87F2010";: 
PRINT " PENO 
ANT LE BIP" 

:BEEP l:A»= 
INKEY* :IF A 
»=""0R ASC ( 
0*)O18&0T0 
2881 

REn on connE 

NCE 

"GROTTE"UAIT 
0: CLEAR : 
GOSUB ,, S82" 
REH OESSIN E 
NCOCHE 
GCURSOR 145: 
GPRINT "4840 



2082 
2018 

2028 
2838 



88141C": 
GCURSOR 8: 
GPRINT 8!0;0 
;0;0;8;8;8 
2040:REH C EST P 

2049:BEEP l:A*= 

INKEY* :|F A 
*=""0R ASC < 
A*K>106OTO 
2049 

2058:FOR P=2T0 15 
4: GCURSOR P- 
2 

2060:a*=INKEY» : 
IF A*=""GOT0 
2085 

2065: REN CALCUL P 
OSITIOH 

20?B:HA=HA+(ASC ( 
A*)=10)-(ASC 
(A*)=ll) 

208B:GA=INT (2"HA 
*,5) 

208S:SA=RA:RA=OA: 
OA=POINT P 

2890:GPR1NT SAJGA 
OR RAiGAOR Q 
ASUA1T 

2B85: REH PERDU? 

2188: IF <0A*GA)O 
(OAOR GA) 
GOTO 2280 

2I0S:REM HA(UTEUR 
)<>3 =)PERDU 

2110:BEEP 1,8, l: 
NEXT P: IF HA 
O3G0T0 2200 

2I15:8EEP 5 

2128:u=STATUS 2-3 
8:J0=PE£K (U 
+18):P0KE (U 
+ <J0-1)*2>,5 
:POKE U*19,5 
JGOTO 22 

228B:F0R 1=0TO 30 
:BEEP It 1, 5* 
I: NEXT il 
WAIT 180: 
PRINT "UOUS 



AUEZ PERDU!" 
:G0T0 16 

is REf1 SUBROUTI 
HE OESSIN GR 
OTTE ALEATDI 
RE 

I: "S82"CLS I 
DIH 9*(3, 4): 
B*<8,8)="79" 
:B*C1,8)="71 
•:B*(1, l)="7 
3" 

:9«(2, 1)="63" 
:B*(2,2)="6? 
":B*(3,0>="4 
1":B*(3, 1) = " 
*3":B*C3,2)= 
"47 r 

':9*(2,8)="6I' 
:8*(3,3) = "4F 
":mi=RnD (3) 
+2:H2=8: 
RANDOM : 
GCURSOR 8 

i:WAIT 0:FOR 1 
=5T0 J58: 
GPRINT B*(H1 
-3, H2); 

:Z=RND (3)-2: 
H1=H1+Z: IF H 
K30R Hl)6 



LET I 



HI-Z 



2386 
2308 



3012 



Z=RND (31-2: 
H2=H2*Z: IF ( 
H2<0)OR (H2> 
(H1-3))LET H 
2=H2-Z 
IF H2XHI-3) 
LET H2=Hl-3 
NEXT 11 
RETURN 
UA1T 8:PR1NT 
"BRAUO UOUS 
AUEZ GAGNE": 
^OR I=25T0 9 
0:BEEP 1, 1, 1 
5SBEEP 1, 128 
-I, 15:NEXT 1 
U=STATUS 2-3 
0:X=PEEK (U+ 
2*PEEK (U+5B 
^-1>^2:a*="T 
ENTATIUE":B* 
="RATEE": IF 
X<2G0TO 3828 
REM CORRECT! 
ON 0RTHOGRAP 
HE 



3015: A* =0* 

=B*+" 

3817: 

3828. 



. M 



REM AFFICMAG 
E SCORE 
WAIT :PRINT 
"UOUS AUEZ F 
AlT":gAIT 8: 
PRINT X; 



A*i" 



AIT 



: PRINT 8* 

3838:PRINT "LA PR 
1NCESSE EST 
DONC 'SPRINT 
"A UOUS POUR 
LA UIE " 

3040:PRINT "IL NE 
UOUS RESTE 
PLUS":PRINT 
"OU A UIURE. 
... HAIS": 
PRINT "REGAR 
OEZ PLUTOT.. 

3858:REM PROGRAMM 
E X, 1NTER0IT 
AUX MINEURS 
.SANS COMHEN 
TAIRES. 

3B00:"Z"CLEAR : 

DIM A*<2)*10 
:A*(0)="6612 
8F1266":A*<! 
)="66123F126 
6':A*(2)-"58 
3858" 

3681: FOR I = 1 TO 58 

3605=WA1T 0:CLS 



3518:GCURS0R II 

GPRINT A*(0) 
;: GCURSOR IB 
O-liWAlT 5: 
GPRINT A*(l> 

36l2:BEEP 1,255,8 
352S:^EXT I 
3638: GCURSOR 68: 

PRINT "LOVE 



3635:F0R 1=0TO 35 

3640:GCURSOR 52: 
GPRINT 15;: 
GCURSOR 52: 
GPRINT 63;: 
BEEP 1, IB, 5: 
NEXT I 

3650:CLS :FOR 1=5 
0TO 93 

3653: WAIT 8 

3655:GCURS0R 106: 
PRINT "ADIEU 
■': GCURSOR 52 
: GPRINT A*<Z 
) 

3668: GCURSOR 56: 
GPRINT A*<8> 
;: GCURSOR 18 
0-1: WAIT 8: 
GPRINT A*(l) 

3665: BEEP 1,5,32 

3670: NEXT 1 

3688: CLS : GCURSOR 
52:GPRINT A* 
<2);"8008";A 
•(8);: 

GCURSOR 188: 
PRINT "Ouir>. 
..":BEEP 3,8 
, 3588 

3698: WAIT 8: 

GCURSOR 52: 
GPRINT 0*(2) 
;"88e8";A*(B 
) ; : GCURSOR 7 
8:PRINT "PAP 

?? ": 

BEEP 4,25, 2? 
8 

3692: WAIT 

3695:CLS :A=0: 

PRINT "JE UE 
UX BIEN SAUU 
ER TOUTES": 
GOSUB 3840: 
PRINT "LES P 
RINCESSES DE 
LA TERRE" 

369?:PRINT "MAIS 
RESTER CO INC 
E TOUTE": 
PRINT "MA UI 
E. . .JAMAIS ! 

3698: CLS 

3700:WAIT 15:F0R 
I»0TO 2: 
GCURSOR 50: 
GPRINT 2-1 ;2 
M(2M*80;2« 
!+56;2«I*80; 
2"! J2" I: BEEP 
I, 255, 20 

3710:NEXT I 

3770: GCURSOR 58: 
GPRINT 8;8;B 
8;56;88;8;8: 
BEEP I, 155, 5 


3730: GCURSOR 58: 
GPRINT 16; 16 

;88;48;88; 16 

; 16:B£EP 1, 1 
55,58 
3?48:GCUi»sOR 58: 
GPRINT 32; 32 
; 96; 32; 96; 32 
; 32: BEEP 1, 1 
55,50 



9 X 



3758: GCURSOR 50: 
GPRINT 64;54 
;64;64;64;64 
!64:BE£P :. I 
55.58: 
GCURSOR 52: 
GPRINT A*(I) 
;: GCURSOR 65 
: PRINT "SPLA 
SH!" 

3760: BEEP 4,255, I 
re;---.- 

3778:CLS :PRINT - 
DE TOUTES FA 
CONS IL N A" 
: PRINT "PAS 
SOUFFERT...E 
T PUIS " 

3788:PR1NT "R1EN 
N EST M1EUX 
OU UN": WAIT 
0:PR1NT "PCI 

3785: RESTORE 3828 
:WA]T 8 

3798:F0fi I'lflBTO 
1I4STEP 2: 
READ A, 8:F0R 
T=130TO I 
STEP -Il 
GCURSOR T: 
GPRINT A;8: 
POKE* 64008, 
RNO 256-1: 
GCURSOR 1*1 1 
GPRINT 8 

3880: NEXT T: 

GCURSOR I: 
GPRINT AJB: 
NEXT 1 

3810!FOft I=30TO 5 
STEP -i:BEEP 
1, I. IBiPOKE 
(STATUS 2-1) 
, 48:NEXT l: 
END 

3B28:OATA 127,9, 9 
,9, 1 , 0, 65, 12 
7,65,8, 127, 4 
,8, 16, 127,0 

3B3B:R£n ANlrtATlO 

3840:WA1T 20: 

CURSOR 16: 
GPRINT "7F7F 
7F7F7F":0=A+ 
IMF A<5 
CURSOR 16: 
BEEP l:PRINT 
"U":GOTO 3B4 
8 

3845: WAIT 8: 

RESTORE 3868 
:FOR 1>1 TO 7 
:REAO Al*, A2 
*, A3*:8EEP 2 
: CURSOR 16: 
GPRINT Al*;o 
2*;a3*;A2*;a 
1*1 

3850: SEEP 3: NEXT 
I: FOR 1 = 1 TO 
28: BEEP [, 
RNO 208+18, 2 
5: NEXT [I 
WAIT :CLS I 
RETURN 

3B88iDATA "43", "4 
C", "70", " 



. "26", 

10", "13", 



'78", 



'7C 



3878: DATA ' 



Suite de la page 2 



MAC PAN 



1797? 
29)39 
20932 

2993? 



29100 
2»1« 
29118 




ME^T PWET13257+J.CJ) 
POVE2040+/13 J-9 PfyE3rW3.9 

IFM-FrHEfGOTOl^lW 

0OT015K9 

PCM SOUS PP0O«*« 

PEP1 C0LLIS10M FflHrOMES/PflOMflt* 

P0KE53Z6?. 1 

P0KE-54277.29 Pf>-E3427g.?9 rOKE5427 , 2 1 199 P0KE54276. 17 

F0P2-I4TO95TEP-1 PWE542??;-! P0VE34273.Z FOP/-9T0190 MCXTK.Z 

iFsozeeeewiDB-y-eTHEwv+i bv-i 

F0P/.AT02IW NEXT POKE-M.'f. 

■>■/.; rrvE'r? =■ '.- r; •■? :•(*?. ___ 

IFVj9THE)iOOT0€3e 

PEfl Fill DE PTWTIE 

PPIHT'.T- 1FSC>M0THEJ*«>SC 

OOSUKeae 008U19995 POKE2044, 243 P0KE39 168.8 POKC33269. 30 Pr>E3324eG 

ppiht-«-trb'3i>"i: '.::' 

PRlNTTBB'39>"«*«**[rjH SCOPE". '1 



23129 
23130 
29140 

23139 
23169 

- I ■■ 

'Al39 
23299 
23219 
23229 



PPIMTTM< S3 )"•*.»« fli.irPE".TnF(29rPBPTIE 0/H' 

P0KE33291.7 

OETfl* IFn*--rj"TMEHPi>'E29*4.13 P«E33231.C'.D OOTO370 

IFR*--N-rHE>lFPIHT"X FC*E?32f;9.B E"D 

SVS22999 007029139 

PEM FIN HE TfiBLEftU 

POfE332«?. I 

IFDP>.6THEtiW-Dn-. 1 

FOPK.9TQ2909 NEXT 

PCKE33269.9 

Pt'IHT'X Pi>-E33277.3 P0*"E3327[,3 

IfoC/i-CWPP^iripV-llTHEHV-Vtl RV-1 

PQKE33248.9 P0KE332*?. 139 

POKE33239.9 P0>'E3323I. 139 POrE33269:14 

POKE33269.2 F0PX-9T0233 Pf>E33230.X NEXT 

POKE33269.3 F0PX-OTO253STEP2 POKE2840,243 P0KE33249.» POKE2049.249 NEX1 

PWE33269. 1 F0Py-erO3«» »CXT 

FOPy-233I09STEP-2 PWE2049.243 POCE33249. X 9<ye.l9*9. 249 NEXT 

P0KE33277.9 P0KE33271.9 POKE33269. 9 P0KE3329e.C( I ) 

HC»NC«I IFNOIBTHEHUC-IO 

PDfE2946.239+IHTr<NC-l>/2) P0XE2947. 25fl+lNT(<MC-2)/2> 

POKE 2943 ■ 239* IHT " MC- 1 >^2> 

1PHC-2TMEMPF-499 PWE33293.2 PWE33292.2 PWE33294.2 

IFHr.3TMEHPF.«99 PWE33293.1 PWE33292.I 

IFMC+4THEHPF.4eB POKE33294.2 

IFHC-3THEI*>F.990 P0fE33293.7 P0f£33292,7 

IFI«:-6THEI»>F-499 P0N'E33294,7 

IFH09THEHP; .>-(m pot. - <i;i. 1 PO'E33292.1 

IFHC-10THEKPF-490 P0KE33294.1 

IFF'4TME[1F.F*1 OOT0389 m 

DA-DA-.l 0OTO599 ■ 



SOLUTION 










DE L'HIPPOREBUS 






10 


FOR 1=1 


TO 


10 






20 


RERD X 










30 


PRINT CHR*<X). 






40 


NEXT I 










50 


END 










60 


DFlTH 87 


73 


78, 


<?' 


72, 




69 


:: : 


84, 


69 


82 




•<b ft 
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THE GAMBLER 



FX 702 P 



En raison de fa 
longueur du lis- 
ting, ce pro- 
gramme passera 
en plusieurs fois. 



En cette annee 2230. vous §tes en periode de vacan- 
ces et pour vous detendre. vous decidez de passer 
votre conge dans une vilte Ires tres particuliere (ou se 
melangent les plaisirs de laventure du jeu et de I'ero- 
tisme). 

Votre but est de seduire 3 femmes. par n'importe quel 
moyen avant la fin de vos vacances. 
Pour cela. vous disposerez dun certain capital au de- 
part, et tout au long du jeu. vous serez amene a jouer 
pour gagner davantage d'argent (celui-ci pouvant etre 
tres utile dans votre entreprise). 

Mais attention, de multiples dangers vous guetteront. 
Si vous etes ruine vous serez renvoye au purgatorre et 
vous aurez une chance sur trois de revenir dans le jeu. 

Thomas LEPRETTE 

Les coordonrtees que vous rentrez (laiite, poids) son! importantes. tl 
faut aussi signaler qu'il y a 2 numeros au debut du jeu qui vous 
seront donnes et qu'il faudra retenir. 

Suivant les directions que vous chotstrez. vous irez soit vers une 
saBe de jeux. scut vers une femme. soit vers un danger. 
Utilisation du programme: 

-Mettez en place la cassette pus taites en mode 1 CLR ALL. 
-Chargez le programme en LOAD ALL. 
-Vous pouvez jouer ensuite en faisant RUN ou Fi PO. 
Les 15 sequences du programme se chargeront ensuite automati- 
quement les unes apres les autres au cours du jeu. si vous posse- 
dez une telecommande (fiche grise de 1'interface cassette). 
-N'ouNiez pas de retemr les 2 numeros qui seront afliches au de- 
part, lis seront redemandes au cours du jeu et cela evitera des 



seul - 2 et * 6 resteni tout au long du jeu 
Les 14 autres sequences sont: 



Nom du fichier 


Nombre de pas 




ENTREE 


1267 




CAVE 


12S1 




RUE 


1271 g 




CASINO 


1270 p 




TRIPOT 


1275 g 




CRAPS 


1270 


S^^-_ 


DISCU 


1256 rtt3 




ROULETTE 


1281 §5fe 




HOTEL 


1281 ^"~4B 




HIPPO 


1281 jj 


Iv"^ 153 


CLUB 






CENTRE 


1279 




CHAMBRE 


1276 




CHECK UP 


1257 





Fiche technique des differentes sequences: 

Quand vous chargerez au depart. LOAD ALL. # 0, * 2. * 6 seront 
ators occupes: * 0: Dresentarion. # 2: purgatoire. * 6: coefficients. 
Puis les 14 autres parties se chargent automaliquement (LOAD # 0) 



Le temps moyen de chargement de ces sequences etant de 2'24". 

Reqles: 

Tout au long du programme vous serez amene a jouer a des jeux 

de casino pour gagner de largent. Done, si vous ne connaissez pas 

les regies des differents jeux. les voici: 

La Boule.La Boule est une roulette composee de numeros de 1 a 

9. 

Rentrez votre mise (suivie de EXE). 

Rentrez votre chance: PLEIN. PASSE. MANQUE. PAIR. IMPAIR 

(suivi de EXE). 

PLEIN: mise sur 1 on qaqne 8 fois la mise. 

PASSE: mise au dessus de 5. on gagne 2 fois la mise. 

MANQUE: mise au dessous de 5, on gagne 2 fois la mise. 

PAIR: chiffres pairs, on gagne 2 fois la mise. 

IMPAIR: chiffres impairs, on gagne 2 fois la mise. 

Le Baccara:jeu de cartes, dont le but est d'arriver le plus pres de 9 

sans le depasser. sinon vous perdez. Si vous gagnez. vous aurez 

voire mise multipliee par 2. 

Le Craps:Le Craps est un jeu de des ou vous pariez sur les chiffres 

de 2 des (chiffres de 2 a 12). Les chances sont: 



WIN 7ou 11 —gagne 

2.3.12 — perdu 

les autres chiffres — ni gagne m perdu 
FIELD; 2.3.4.9.10,11.12— gagne (2 fr>s la mise) 

les autres numeros — perdu 
BIG 6: 6 — gagne 

7 — perdu 

autres — couos nui 
BIG 8: gagne avec le 8 (2 fors la mise). 

perdu avec le 7 

autres: coup nul 
UNDER 7: gagne 2 fois la mise au dessous de 7 
OVER 7: gagne 2 fois la mise au dessus de 7 
Jeu 7: (jeu sur 7) 

gagne avec le 7 — 4 fois sa mise de depart. 

autres numeros — perdu 
Jeu '11: gagne avec le n — 15 fois la mise 

autres numeros — perdu 
A. CRAPS: 2.3.12 gagne — 7 fois la mise 

autres numeros — perdu 
CRAPS 2: gagne sur le 2 — 30 fo«s la mise 

autres numeros — * perdu 
CRAPS 3: gagne sur le 3 — 15 fots la mise 

autres numeros — perdu 
CRAPS I2:gagne sur le 12 — 30 fois la mise 

autres numeros — perdu 
HORN: 2.3.11.12 — gagne 4 fois la mise 

autres numeros — Derdu 
Roulette:roue composee de 36 numeros. Les chances sont: 
PLEIN: miser sur 1 numero — gagne 35 fois la mise 
CHEVAL:miser sur 2 numeros — gagne 17 fois la mise 
NOIR: 2 fois la mise. si vous gagnez. 
ROUGE: 2 fois la mise. si vous gagnez. 
PAIR; 2 fois la mise. si vous gagnez. 

PASSE. MANQUE. IMPAIR:comme pour le jeu de la Boule. si vous 
gagnez. vous aurez 2 fois la mise 
jouee. 
Black Jack:ll s'agit d'aitemdre le chiffre 21 sans le depasser. Le 
Banquier joue contre vous. Si vous gagnez. vous empocherez 2 fois 
votre mise. 



LIS! IB 
! vac :eS8 2? 
2 P8T "«•» BH 2 

m — 

trnr 

r 

. ... . . .. ;: 

E-. FERi3SE' 

5 m 'OECIDEZ DE 

i PET "Villi TRES 
.TRES....V... 
PARTICtLIERE I 
1 i* 

7 PRT "VOUS PfiBTE 
Z POOF 

LLE vcuee m.. 

8 PRT "FLBISIRS 
ES JEUX ETVDE 

l.EROTISKE !!! 

5 PRT "VOUS ETES 
LE HERDS", "DE C 
ETTE RVENTURf E 
T" 

It '■■', 'VOTRE BUT 
ESTDE...VSEO 
d?l 3 PULES P 
ST 

11 prt "h.ihporte 

Mlho/eny-hv 

- FIM OE V 
OS" 

12 PRT "VfiCfiHCES. . 
..•.■VOUS POURS 
EZ 50UVHT" 

13 PRT ') 

BSIN6 ETVDE II 

JLTIPli 

3" 

ERONT !!!" 
il 10US ET 

ES Rij:;- 
iEREZ EHVOtT 

16 PRT "All PURSBTO 
[RE El 

UREZ UNE ..." 

17 PRT "CD 

TROIS DEVREV 
EHIR OANS LE JE 
U» 

18 PRT "...BOW C 
HBNCE !!!V«w 

PLAY - BOY ! • 
w" 

19 PRT "<«»> A7TEN 
HON! «<»VN0 

iEZ CES NUHEROS 

28 NHT <RAHI<Ie4 
*IHT (RAHMIe 



21 PRT "HUHERG 0.0 
RDRE:":H,"NUHEP. 
D,EHTREE:"iN 

22 PRT "VEUILLEZ R 
EPCNDRE AVCES 

fiUESTICHS SVP. 

23 LHP "VOTRE A6E 
(AHHEES) ",A,"V 
OTRE TfilLLE (CH 
) ",T 

24 IHP "VOIRE FOID 
S (K6) ",P:PRT 
"WOERHIH HOT 

25 Z=INT <RANI»5e3 
He3:PRT "VOUS 
OISP03EZ HE..." 
,Zs" t !!!!" 

28 prt"... bowie 
chance ihmoa 



27 KBIT 5:F0R Z=8 
TO 9:PRT CSR Zi 
"<"1CSR 19-ZS") 
";:NEXT Z 

28 FOR Z=9 TO 8 ST 
EP -UPRT CSR Z 
:"»":CSR I9-Zi" 
•"::NEXT Z 

29 KBIT 38-.PRT "BV 
ENTURES EROTISU 
£S!","«« PP.ESE 
NTBTION >"":RE 
T 

PURGATOIRE 
LIST »2 

1 KBIT 38: PRT "«• 

LEPURSBTOIRE! 
»":Z=188 

2 PRT "VOICI 3 PO 
RTES....VVOUS 

PRENEZLBH/2/ 
3" 

3 It=KEV:IF «E»>" 
I"; IF KEY*"2":I 
F ltEY*-J" THEN 

4 SSB I5:X=INT (R 
BNK5<U):IF U 
6«3 THEN 18 

5 IF X>6«3; IF m 
•7 THEN II 

6 PRT ">«•> OESOL 
E II l »Mt",~n 

SUILLOTIHE !!! 

7 PRT "BOIEU 

,":W 

18 PRT ■ OOUU 

UFFFF !! >","V0U 
SCOHTIHUEZ.... 
-:REI 

11 PRT "BUTRE TEHT 
BTIVE ...',"... 
BONNE CHANCE ! ! 
!":80TO 2 



15 8=1 : IF !t="2";6 

=2 
18 IF It="3"l6=3 
17 RET 



LIST 16 

1 6=(LH BBS «(T- 
P)/18)/B*(Z/1e4 
HRRH»)Jt2'.RET 

ENTREE 
LIST t8 

1 NBIT 39:|="0IRE 
CTiOH: ":IHP"H 
UHERO O.0R0RE " 
,B:IFB=HTNEH 
3 

2 PRT "FfiUXi : AN 
EHOE 388l!":Z=Z 
-388: 6S6 36 

3 PRT "EHFIH! LA 
VILLE !!!" 

4 PRT "VOUS ALLEZ 

fi L.HOTELVRE 
SERVER UNE CHAN 

BDC" 

5 PRT "PUIS VOUS 
SORTEZ..." 

6 PRT "VOUS ETES 
DUNS UN", "BAR H 
INBBLE ET" 

7 PRT "UN 6ARHAN 
CAUSE. ,",$;"0/N 

v 

8 IF KEY-'O" THEN 

II 
S if KEYi'H" THEN 

8 
18 PRT "VOUS ALLEZ 
VERS UHEVSOR 
IE OE REMISE... 
":L0fi0 

11 PRT 'VOUS REHTR 
EZ DANS", "UNE P 
IECE REHP11E OE 

12 PRT -MINES fi 

SOUS !!!" 

13 PRT "JOUEZ-VOUS 

: O'N ?" 

14 IF KEYOr IHEH 

a 

15 IF KEY<"0" THEN 

14 

16 PRT "EOHHE CHAN 
CE I!'": IHP "W 
TRE MISE ",«:IF 

Z-IK8 THEN 16 
1?R=RAHI:|F R<.3; 
PRT "BRAVO! HIS 
E 00UBLEE'":Z=Z 
•N'2 

18 IF RJ.3SIF R(.6 
5;PRI "OOHNfiEE 
ii PERDU li ":Z= 
i-H:6S8 36 

19 If Ri.65:IFR(. 



75IPRT "BRAVO! 
HISE TRIPLEE!": 
Z=Z»H»3 
28 IF Ri.75)PRT "V 
OUS HE SHSNEZ R 
IEH!" 

21 PRT "VOUS BVEZ" 
;Z;"»":60T0 13 

22 PRT "VOUS PASSE 
Z DANS UNEVAU 
TRE PIECE QUI 3 
E" 

23 PRT "TERNINE PA 
R 2 PORTESVUH 
E EST DE COULEU 
R" 

24 PRT "JNUNE ET L 

AUTRE. .VDE C 
OULEUR SAN6 ! ! ! 

25 PRT " PORTE I 

S/J?" 

26 IF KEY="S"1PRT 
"VOUS ETES OEVA 
HI", "UNE SRflNDE 

CfiVE...":LOB0 
2T IF KEY>"J" THEN 
26 

28 PRT "UNE RUE SE 

PRESENTEVOEV 
ANT VOUS..." 

29 PRT "UN BCHHE V 
OUS A80R0E","ET 

VOUS Oil...'," 
SUIVEZ-N01!" 
38 PRT "LE SUIVEZ- 
VOUSlO/H ?" 

31 IF KEY=-0";PRI 
"IL VOUS EHHENE 

DANS","UNE PIE 
CE S0HBRE..":L0 
AD 

32 IF HEY»*H" IKBI 

31 

33 If RAHi>.3 THEN 

35 

34 PRT "UN TYPE VO 
US VHP, "VOTRE 

PORTEfEUILLEi! 
":Z=8:6SB 36 

35 PRT "VOUS VOUS 
DIRI6EZVVERS 
UHE PETITE CBVE 
":LOAD 

36 if Z=8;PRT "VOU 
S ETES RUINE ! ! 
'"•■6SB (2 

37 RET 

CAVE 

LIS! 18 

1 NBIT 38:INP "NU 
HERO 0, ENTREE " 
,B:if B=N THEN 

2 PRT "FfttlX: 566s 

0,AHEH0E":2=;- 
588: If Z.'8;638 
12 



3 PRT "VOUS T8TEZ 

2 B0UT0HSW0 

US^APPUYEZ SUR. 

4 PRT "LE (P)ETIT 
/LE <6)R0S" 

5 IF K£Y="6" THEN. 

9 

6 IF KEY«'P" THEN 

7 IF R8Nf(.3;PRT 
"...ELECTROCUTI 

'ON !'":6SBI2 

8 SOTO 18 ■ 

5 636 16: IF QUI 

PRT "....COUP 

EJUS !!!!":P=P 

t3 

18 PRT "LA LUNIERE 

REVIENT..VET 

VOUS VOYEZ..." 

11 PRT ".... UN CA 
OAVRE !!!" 

12 PRT "(f)UITE i 
(A)TTEHTE" 

13 If KEY="A" THEN 

19 

14 If KEY>"f" THEN 

13 

15 If RANK.? THEN 

31 

16 8=IHT (RAN»>9«1 
)>188:PRT "VOUS 
JROUVEZ ONE... 

17 PRT "LIflSSE DE" 
iBi"$ !!":Z=Z* 
8 

18 PRT "VOUS SORTE 
Z DELAVPARU 
ALONG TUNNEL.. 
":LOAO 

19 PRT "18 H1HUTES 

PLUS T8RDV2 
HOHHES SUF.VIEHN 
EHT" 
28 PRT "VOUS VOUS. 
..ViOBCHEZ / 

<N)0HTRE2" 

21 IP KEV="N" THEN 

24 

22 if KEY»"C" THEN 

21 

23 If R8N»>.5;PRT 
"ILS PARTEHI AV 
EC LE",-CfiOBVRE 
,..":fiOT0 15 

24 If RANK. 4 THEN 

26 

25 FRT "ILS VOUS 
NI vu nvEi V 
OUS EN8ARQUENT 
!":60TO 29 

26 PRT "ILS VOUS 
HI TR0UVE!":6SB 

16: If 0).6 IHE 

fl ~i 

27 PRT "ILS VOUS L 
»ISSENI...":60T 
31 



28 PRT "ILS VOUS f 
LIN6UENT !":6SE 

12: SOTO 31 

29 B=INT (2'2:PRT 
"ILS VOUS BSSON 
EHT ET","2 HEUR 
ES PLUS TBRO" 

38 PRT "VOUS REVEN 
EZ fl VOUS", "AVE 
C'iBil DE HOIN 
S":Z=Z-B 

3! PRT ll"E/0 ?" 

32 If KEY="0";PRT 
"VOUS ALLEZ VER 
S UNEVfORTE L 
UH!ERE..":LOAD 

33 If KEY>"E" THEN 

32 

34 PRT "VOUS ETES 
DANS LA", "RUE E 
T UN TAXI EST", 
"A L ARRET..." 

35 PRT "LE PRENEZ- 
VOUS:0/N ?" 

36 If KEY="0';PRT 
"IL VOUS EHHENE 

BU",".. CASINO 
!!":10ND 

37 If KEY«"N" THEN 

36 

38 6SB I6:if 8). 5 
THEN 41 

39 PRT "UNE VOITUR 
E VOUS...VF0N 
CE DESSUS ET VO 
USVECRBSE !!! 

48 6SB 12 

41 PRT "VOUS ALLEZ 
VERS LEVCfiSI 
NO....-':lOAD 




RUE 

LIST 16 

I NAIT 38:!HP "L, 
HEURE S.V.F ",B 

3 PRT "LE CASINO 
SE DRESSEVA 8 
8B N OE VOUS. . . 

4 PRT "VOUS COHHE 
HCEZ AVHARCHE 
R VERS LUIVQU 
AND...":R=RBNI 

5 If R<.3 THEN 33 

6 IF R1.3IIF R<.6 

IHEN 38 

7 PRT "VOUS REHBR 
OUEZ UNEVJfiHB 
EB66UICHAHIE.. 



8 PRT "BLLEZ-VOUS 

VOIR:0/N?" 

9 IF KEY="N" THEN 

43 
18 IF KEY<"0" THEN 
9 

11 PRT "UHE SUPERB 
E ELONDEVATTE 
HD iLELSU.UN... 

12 PRT "LA DRA6UEZ 
-VOUS:0/N?" 

13 IF KEY='N" THEN 

43 

14 IF KEY'"0" THEN 

13 

15 656 16: IF Q>.4 
THEN 28 

16 PRT "ELLE PART 
EN COURANTWE 
RS UH SEAHT ! ! ! 

17 PRT "INSISTEZ-V 
OUS: 0/N ?" 

18 IF tt*="N" THEN 

43 

19 IF KEY<"0" THEN 

18 
28 IF RBND.8 THEN 
22 

21 PRT "IL VOUS BS 
SONEET...VYO 
US VOLE TOUT ! ! 
":6SB (2:60T0 4 
3 

22 PRT "VOUS TERRA 
SSEZ","L,HOHHE 
ET LB FILLE" 

23 PRT "SE JETTE 
BHS V0SV6RBS 
!!! ELLE VOUS" 

24 PRT "ENHEHE CHE 
Z EHE...VAPR 
ES AVOIR PASSE" 

25 PRT "4 HEURES 
E BONHEURVIH! 
ENSE.VOUS SORTE?' 
Z':Y=1 I' 

26 PRT "DE CHEZ EL 
LE BVEC...":B=I 
HI (RANI«1e3)*1 !• 
e3 

27 PRT 81" IDE HO 
INS !!":Z=Z-B:6 
SB 44: GOTO 43 

28 PRT 'ELLE VOUS 
DIT :","0k BEfiU 

60SSE. ..'.-... 
VIEHS 111' 

29 PRT 10 SUiVEZ- 
VOUSJO/H ?" 

38 If «Y="0";PRT 
"ELLE VOUS...": 
60T0 24 

31 IF f,E«"H" THEN 

30 

32 GOTO 43 

33 PRT "3 HOHHES A 



RRIVENTV0EV8N 

T VOUS...".*;" 

. . ... 

34 If HY="S" THEN 

7 

35 If KEY>"E" THEN 

34 

36 PRT 'LES 3 HONN 
ES VOUSVRfiTTR 
BPENT ET VOUS" 

3T PRT "POISNBRDEN 
1 !!!!":6S6I2: 
SOTO 43 
33 PRT "ONE LIflSSE 
OE 5681' i", "LA 
PRENEZ-V0US:O/ 
H !" 
39 If KEY='H" THEN 

43 
48 If KEY>"0 _ THEN 
39 

41 IF RAHI).5:Z=Zt 
588:6010 7 

42 PRT "UN ENFAHT 
LA PRENDVAVAN 
T VOUS !!!" 

43 PRT "VOUS REHTR 
EZ DANSVlECfl 
SIHO...':LOAD 

44 IF 2i8:PRT "VOU 
S ETES RUINE !! 
!":GSB 12 

45RE1 




Suite page 12 



DEBARQUEMENT 



Vous etes commandant dun crowseur qui patrouille au 
large des cotes de votre pays. Vous avez ete charge 
par la haute autonte. dempecher le debarquement en- 
nemi Pour remplir votre mission, vous dispose? dun 
lance-torpilies. d'un canon anti-aerien et dun helicop- 
tere. 

Jacques MERC1ER 



Mode d'empkx: 

II laut chasir une des 3 armes: T pour tes torp«!tes. C pouf le canon 

et H poor I'helicopteTe. 

Dans tous les cas. pour brer M faul uiiitser la barre d'espace. Les 

depiacemenl se fool grace aux 4 fteches. 




T1-99/4A 

* BASIC 
ETENDU 



HO ■• DEBARQUEMENT • • 

• ■ JACQUES HERCIER 

• • MAI I9B4 • 

130 ' • ti 

99/4a • • basic etendu 

14© call clear :: randomize :: call mao* 
ify<3>:: qosub 2booo :: gosub 30000 :: b 

OSUB 29OO0 

ieo '— —— ■- 

190 'DEPART DU JEU 

200 •-—"= = 

310 CALL DI5TANCE(46,94,208,DI) : : CALL S 

PRITE(43, 120,2, 110, 1.0, INT<VI«RND)*1 >: : 

IF DIOO THEN 1060 

aoo • «— —- 

510 'CHOI I OES ARNES 

520 •— — — — 

330 CALL KEY<O.KY,ST>:: CALL C0INC(43,41 

3. 14, A):: CALL POSITI0N(44,L,M):: IF A<> 

THEN 26000 ELSE IF L-IO AND M>220 THEN 
26000 

333 IF SI=0 THEN 330 

34© IF KY072 AND KYOS4 AND KY067 THEN 

CALL SOUNDdOO. llO.O):: GOTO 530 
543 IF KY-72 AND HE-0 THEN CALL SOUND I 10 
0,110,0):: SOTO 53© 

530 CALL SOUNDdOO, 262, 0,1047,0):: IF KY 
-72 THEN 10OO 

360 IF KY-84 THEN IF T-O THEN 5BO ELSE S 
0N-1047 :: V— 6 t: F-158 :: 2*23 ;: X-3 
:: A4-T* : : SE-5 :i SOTO lOOOO 
370 SON-131 :: F-155 :: V— 13 :: 3=37 :: 

1-4 :i A»-C* 11 SE-7 ll GOTO lOOOO 
300 CALL SOUND(lO,262,0> : I CALL SOUND c 10 
,196,0):: CALL SOUND ( 10, 262, O) : : GOTO 33 
O 

1010 fCHDIXsHELICOPTERE 

103O CALL DELSPRITE! 43) i: IF INT(RND«10) 

* 1 >4 THEN H-W+ i ■ : EOSUS 273CO 

1033 IF HE-O THEN CALL SOUNDUOO, 131 , 0) : 

1 SOTO SCO 

1033 CALL N0TI0N(46,-15,0> :: FOR 1-1 TO 
20 i: CALL SOUNDC10.-3.0) : : NEXT I : : Cfi 
} . I M0TI0N(46,2,0) 

1036 IF NU-1 THEN CN-1 :: GOTO 170O0 
1040 IF NU-1 THEN CN-I :: GOSUB 3IOOO I: 

SOTO 170O0 
1060 CALL KEY(0,KY,ST) t: CALL CO INC (ALL, 
AC: IF tCt-BZ THEN GOSUB 213CO ELSE IF K 
Y-32 THEN GOTO 22000 
1065 IF KY-65 THEN 1 BOOO 

1070 IF AOO THEN 17000 ELSE CALL POSITI 
0N(44,L,H> 

lOBO CALL POSITION(46,LH.NH):: IF KY-68 
THEN GOSUB 21000 ELSE IF N>220 AND L-IO 
THEN 26O0O 

1085 IF LH094 OR NH0208 AND ST-© THEN 
CALL NOTI0N(46, 2,0)1: CALL SOUND ( 10, -3, O 

1090 IF LHMIO THEN CE- I :: BOTO 17000 
1093 IF KY-69 THEN SOSU8 2O0OO 
UOO GOTO 1060 

5OI0 "FIN PERDANTE 

3040 CALL SOUNDC800, 131,0,323,0, 1047,0) i 
■ CALL SOUWHBOO, 131,0,392,0, 196,0):: CA 
LL SOUND (1600, 131,0,323,0, 1047,0) 
3044 FDR DEL-1 TO 1OO0 :: NEXT DEL 
3043 CALL DELSPRITE (ALL) I : CALL CLEAR II 

CALL CHARSET t: CALL SCREEN(S):: FDR I- 
1 TO B :: CALL COLOR ( I . 2. 12) I : NEXT I 
3050 DISPLAY AT(12.11>»*» PERDU !♦" ll D 
ISPLAY AT<20,8) : "ENCORE UNE FQIS 7" 
3060 CALL KEY(O.KY,ST): : IF ST-O THEN 30 
6© 
5070 IF KY07B AND KY079 THEN 506O ELSE 

IF KY-79 THEN IOO 
5OS0 BOTO 11090 

10010 •CMOIT:T0RP. OU CANON 

10020 ; —— ———— —— 

10023 IF INT(RND*10)+I;4 THEN H-H* 1 :: G 

OSUB 273O0 

10030 CALL DELSPRITE(43) : : CALL CHAR C IOO 

,A»):: CALL SPRITE (43, IOO, 2. F,G) 

10040 CALL KEY(O.KY,ST)it CALL COINC(4S, 

•13,14, A);: IF KY-83 THEN GOSUB 150OO EL 

SE IF KY-32 THEN 23000 

10045 IF KY-84 OR KY-67 OR KY-72 THEN 53 

O 

10030 IF AOO THEN 26000 ELSE CALL POSIT 

ION (M.L.N) 

I0060 IF KY-68 THEN BOSUB 16000 ELSE IF 

N>220 AND L-IO THEN 260O0 

10070 GOTO 10040 

1 1000 '—-———— 

IIOIO 'PARTIE GASNANTE 

11O20 ! ■"— ■■■■ 

11023 6GSU6 13OO0 

1103O CALL DELSPRITE (ALLlli CALL CLEAR : 

: CALL CHARSET n CALL SCREEN(3>:: FOR I 

-I TO B :: CALL COLOR ( I . 2, 12) : t NEUT I 

11040 DISPLAY AT112,ll)l-» BRAVO 4- :r D 

ISPLAY AT(14,7):"MISSION ACCDMPLIE" 

1I030 DISPLAY AT(20.3)BEEP: "ENCORE UNE F 

DIS"*(0/N! " 

11060 CALL KEY(0,KY,ST>i: IF ST-O THEN 1 

10*0 

11070 IF KY078 AND KY079 THEN 1 1060 

HOBO IF KY-79 THEN 100 

11090 CALL CLEAR :: DISPLAY ATd3,ll)!"A 

U REVOIR- II END 

12000 •—•———■ 

12O10 'DATA MUSIOUE 

12020 •—-——-—- 



1203O DATA 300, 262, IOO, 262, BOO, 349,400,2 
62,400,233,700,220,100,233,400,262 
12040 DATA 300,262,100,262,400.349,400,3 
49, 400, 440, 3O0, 392, IOO, 349, BOO, 392,300, 4 
0000 

12050 DATA 300,294,100,294,400,392,400,3 

92, 400, 349, 400",349, 700,330,100,294,300,2 

62 

12060 DATA 100,262,300,294,100,330,400,3 

49.400.262.300.262. 100.294.300.262. 100. 2 
33.700,220 

12070 DATA 100,233,400,262,300,262,100,2 

62. 400. 349. 400. 149. 400.330. 200. 294. 100. 3 
30,800,349, I.4COOO 

13000 ' ™ — ™ 

13010 'MUSIOUE 

13020 • "— " 

13030 RESTORE 12030 

13040 FOR 1-1 TO 47 i: READ MU.MV :: CAL 

L SOUND(MU,NV,0):: NEXT I 

13030 RETURN 

I30O0 ■-— - 

13010 '43 GAUCHE 

15030 CALL HOTION(43,0,-20)i: CALL KEYtO 

,K,S):i CALL COINC (43, 413, 15, A) i : CALL P 

OSITION(»4,L,M):.- IF A< X> THEN 26000 ELS 

E IF M>220 AND L-IO THEN 26000 

1S040 IF K-4CY THEN 15030 ELSE KY-K n CA 

LL MOTI0N(43,O,O): i RETURN 

1ACOO ■=— — — 

16010 *»3 DROITE 

16020 ■——=—=- 

16030 CALL MOTION(43.0,20):: CALL KEYCO, 

tC,S):: CALL COINC t»3, 413, 13, A) : i CALL PO 

SITI0N(«4,L,H) I : IF AOO THEN 26000 EL5E 

IF n>220 AND L-IO THEN 26000 
16040 IF K-KY THEN 16030 ELSE KY=K tt CA 
LL M0TI0N(«3,0,0) :: RETURN 

17010 fPROBLEME HELICOPTERE 

1703O CALL n0TI0NIM,0,0,W,,0,0,»3,0,0): 
: CALL DISTANCE(*3,*1S,A):: CALL DISTANC 

Et«6,«4,HA>:: CALL DISTANCE (46, •S.KB) : : 
IF CN-I THEN CN-O :: P-P-10 :: GOTO 1706 

O 

17035 IF CE-1 THEN CE-0 :! Ps^-10 ti GOT 
O 27000 

17036 CALL DISTANCE(45,416,&2) : : IF B2<4 
OO THEN CALL MOTION (*3,0, INT (RND*VI ) *1 , • 
4,0, INT(RND«VI)*1):: GOTO 1060 

1704© IF A<300 THEN 26000 

170SO CALL PATTERNC46, 136) : l P-P-IO it I 
F HA<300 THEN HA-I it GOTO 3O70O ELSE IF 
HB<3O0 THEN HB-1 :: GOTO 3O3O0 

17060 FOR 1-1 TO SO :: CALL POSITIDN(46, 
LH,MH):t CALL MOTION (46,5,0) l : CALL SOUN 
D(30,NT-I413,0>i: IF LHMIO THEN 270O0 

17061 NEXT I 
17070 BOTO 1706© 

18010 ■ ATTERR I SSAGE 

1303O CALL P«TTERNI«6,104)i: CALL MOTION 

(46.2,0> 

18040 CALL KEY(0,KY,ST): : CALL SOUND (10, 

-l,0):r CALL COINCtALL, B) i i CALL COINC(« 

3,415, 10, A) :i CALL POSITION(46,LH, HH> 1 1 

CALL POSITION(*4,L,H> 

18043 IF UK-96 AND LH>-92 THEN IF MH<-2 

10 AND MH>-2©6 THEN CALL SPRITE (46, 104, 1 

3,94,208,0,0):: CALL SOUND ( IOO, 1047, 0. 32 

3.0):: SOTO SOO 

1BOSO IF AOO THEN 26OO0 ELSE IF BOO TH 

EN P-P-IO :: GOTO 2700O 

1B060 IF M>220 THEN 26000 ELSE IF ST-O T 

18O70 IF KY-69 THEN SOSUB 20000 ELSE IF 
(TY*6B THEN GOSUB 2IOOO 
1BOOO IF KY-83 THEN BOSUB 21300 
18090 CALL MOTION (46, 2, O) ■ i GOTO I BO40 
20000 ■— — — 
2OO10 'ASCENSION 
20020 •=———- 
2O03O CALL MOTION (46, -6,0) 
20060 CALL KEYtO.KY, ST ) I : CALL SOUNDdO, 
-3,0):: CALL COINC(ALL,A) : : CALL POSITIO 
NI46.LM.MH) s : CALL POSITI0N(»4,L , M) 
20070 IF AOO THEN 17000 ELSE IF M>220 A 
1 ND L-10 THEN 26000 
20000 IF ST-O T)«N RETURN ELSE IF LHMIO 

THEN CE=I II GOTO 1 7000 
20090 IF KY-69 THEN 20O6O ELSE IF KY-S3 
THEN 21300 

20100 IF KV-32 THEN 220O0 ELSE IF KY-6B 
THEN 21000 
201 lO RETLBVN 
210O0 •—"-—-"« 
21010 'HELICO DROITE 
2102O *— — — — 

21040 CALL PATTERNI46. 1041:: CALL MOTION 
(46,0,VI*2) 

21030 CALL KEY(O.KY.ST): i CALL SOUND (10, 
-3,0>l> CALL COINC(ALL,A)!i CALL POSITIO 
N(44,L,M):: IF AOO THEN 17000 ELSE IF M 
>220 AND L-10 THEN 26000 

21060 IF ST-O THEN RETURN ELSE IF KY-68 
THEN 21030 

21070 IF KY-83 THEN 2 I SOO ELSE IF KY-32 
THEN 220O0 ELSE RETURN 
2130O —————— 

21310 'HELICO BAUCHC 
21320 •—— — —•— 

21330 CALL PATTERN(46, 1 32) : : CALL MOTION 

(46,0,-VI-Z) 

21330 CALL KEY (O.KY.ST) : i CALL SOUNOflO, 

-3,0)11 CALL COINC(ALL,A)t I CALL POSITIO 

N(M,L,M)i: IF A< X) THEN 17000 ELSE IF M 

>220 AND L-IO THEN 26000 



21560 IF ST-O THEN RETURN ELSE IF KY-83 

THEN 2153© 

21570 IF KY=83 THEN 21500 ELSE IF KY-32 

THEN 22OO0 ELSE RETURN 

22O0O ■——=-—=--= 

22O10 •BOMBE HELICO 

22020 ■-*—=«==«- 

22023 IF INT(RND«10)*1>4 THEN H-H-l :: G 

OSUB 27500 

22026 IF NU-1 THEN CN-I :: SOTO 17O0O 

22030 CALL MOTION (44,0,0, 46, O.O) : : CALL 

SOUND ( 100,-7,0) : : CALL POSITION(46, LH.I4H 

):: CALL SPRITE(42, 108,2,Lm4,HH,3,0> 

22033 IF AV-0 THEN IF INT (RND'10) *1 >7 TH 

EN CALL SPRITE (44,96,2, 10, 1,0, INT(RND»VI 

)*1):; AV-1 

22036 CALL POSITIDN(44,L,M) : i IF LO10 A 

ND LOO THEN AV-0 :: CALL DELSPRITE (44 ) 

22040 CALL COINC(42.45.6,C):: CALL POSIT 

ION(42,LB,MB> :: IF COO OR LBMIO THEN 2 

2050 ELSE CALL SOUND ( 10, 1047,0) : : GOTO 2 

2040 

22O30 CALL DELSPRITE (42) : : IF LB>110 THE 

N CALL S0UND(50, 131,0): : CALL MOTION(44, 

0,INT(RND*VI)*1) it A-O ll SOTO 1063 

22060 CALL MOTION(45, O, 0) : : KSP-1 :: SOT 

O 30500 

23O10 •FEUr(TORP. OU CANON) 
23O20 ?—=———=-=-=—-- 

23023 IF AV-O THEN CALL POSITION (44, F, G> 
ELSE 23025 

23024 IF FOO AND G< X) THEN CALL DELSPRI 
TE ( •* ) : i AV-O 

23025 IF X-5 THEN T-T-l 

23026 IF AV-O THEN IF INT(RND»10)*1>6 TH 
EN CALL SPRITE(44,96.2,I0,1,0,INT(RND«VI 



)*1) 



pJVa 



23027 CALL POSITI0N(44,L,M) : I IF LOIO A 
ND LOO THEN AV-O II CALL DELSPRITE (44) 
23030 CALL SOUND ( 100, -7, 01 i : CALL POSITI 
ON(43,F,e>:: CALL SPRITE (42, 10B. 2. F-5, G, 

v,oi 

23O40 FOR 1-1 TO Z :i CALL SOUND ( 1 O , SON , 

Oln CALL COINC(42,4X,SE,0)j: IF Q< X> TH 

EN 23160 

23030 NEXT I 

23060 CALL DELSPRITE (42) I i GOSUB 27300 : 

: IF T-O THEN CALL DELSPRITE (43) t : GOTO 

500 ELSE lOOOO 

23160 CALL DELSPRI TE (42) i : CALL MOTION!* 

4,0,0,45,0,0)1 I IF X-5 THEN 30500 ELSE 3 

070© 

2600© —————— 

26010 ' DEBAROUEMENT 
26020 —————— 

26O30 CALL DELSPRITE (43):: CALL MOTION(4 
4,0,0,43,0,0,46,0,0) :i IF A-O THEN 26300 
26040 P-P-3 i: QOSUB 2730O I I IF P<0 THE 
N 3000 ELSE CALL SOUND (SOO. 131 , 0. 196, O) i 
■ CALL SOUND (SOO, 196,0,262,0): : CALL SOU 
NDUOOO, 131,0, 196,0) 

26O30 FOR 1-1 TO 10 II CALL 50UND(!00,-3 
.1):: CALL C0L0R(43, 1 ) i : CALL SOUNDUOO, 
-3,I)ti CALL COLOR(M.2)ll NEXT I :: LT.L 
L M0TI0N(44,0. INT(RND»4)»I) i i BOTO IB© 
26300 •PARACHUTISTES 
263D2 CALL POSIT ION(44, L.M) 
26310 CALL SPRITE(47,36,2,L»9,M,3,0I 
26320 FOR 1 = 1 TO 12 :: CALL SOUNDUOO. 13 
1,0,262.0,323,0):: CALL SOUND ( 100, 131 .O, 
196.0,392.0) i: CALL SOUND!200, 131 . 0, 262. 
0.323,0) 
26330 NEXT I 

26340 P-P-8 : J BOSUB 27300 « : IF P<0 THE 
N 5©0© ELSE CALL DELSPRITE 147. 44, 43, 45) : 
: BOTO 180 
770<>O ■ ■ !■■■■■ 
27010 'DESTRUC. HELICO 
■ " ■ ■ —■ 
27030 CALL PATTERN(46. 136): : CALL MOTION 
(46,0,0) 

27040 FOR I-I TO 15 :: CALL SOUND(20,-7. 
I):: CALL COLOR (46, I ) i : NEXT I 
27030 HE-HE-1 :i GOSUB 27300 :i CALL SFR 
ITE(»6, I04,13,94,20B):: IF P<0 THEN 3O00 

ELSE CALL MOTION(43. 0, INT (RND«4) * 1 ) 
27060 IF AV-1 THEN CALL MOTION (44, O, INT ( 
RND«4) .1) 
27O70 BOTO SOO 
2730© 
275 lO 

27520 ! 

27330 DISPLAY AT ( 23, 3) SI ZE (4 ) i P n DISPL 

AY AT(22.13)SIZE(2):HE 

27340 DISPLAY AT (22, 19) SI ZE ( 2) i T :: IF H 

>24 THEN H-l 

27343 IF H>-2I AND NU-0 THEN GOSUB 3100© 

ELSE IF H>4 AND H<-20 AND NU-I THEN BOS 
UB 32000 : i GOTO 27300 

273SO DISPLAY AT (23, 23) SI ZE (3) I H II IF P 
>«f THEN N-2 ELSE N- I 

27333 DISPLAY AT (24, 13) SI ZE(2) : N :: IF N 
-2 THEN VI-9 ELSE VI-6 

27336 IF PTO THEN CALL MCHAR (23. 7. 73) : I 
GOTO 3000 

27337 IF P>99 THEN t IOO© 
2736© RETURN 

2OOO0 ■———«"--—- 

2BO10 ' CHAR (PRESENTATION) 

28020 ■-«——•——- — 

28030 CALL CHAR ( I 27, -O" ) 

28040 CALL CHAR (92, * OOOOOOOOOOOOOOOOOOOO 

0000030F3FFF0000000000000001010FOF7FFFFF 

FFFF") 

28030 CALL CMAR(BS, -OO©0OO031F3F3FFFFFFF 

FFFFFFFFFFFF073F3FFFFFFFFFFFFFFFFFFFFFFF 

FFFF-) 

28060 CALL CMAR(128,-FFFFFFFFFFFFFFFF-J 

28070 CALL CHAR ( 104. -OO0OOO0O0O407F4OOO0 



OOOOOOOOOOOOOOOOOFF 1 83C3EFE3C 1 07EOOOOOO© 

O-):: -HELICO DROITE 

2SOBO CALL CHAR ( 143, "FFFFFFFFFFFFFFFF - i : 

: 'TABLEAU 

28085 CALL CHAR(73, -0000007E7EOO- ) t : -SI 

GNE - 

28310 ' INITIALISATION DE 

5 VARIABLES 

28320 ■—"««———— 

2B530 P-© ii VI-6 :: HE-3 :: E-l :: T-9 
:: N-l :: H=3 II G-I27 :: NT-1047 
2B600 RETURN 
29O0O ■————————• 

29010 ■ REDEF. CARACTERES 

29020 ■ ————— ■ p 

29023 CALL CHAR (36, -03©70F1F3F20I008©4©2 

010301 020 200B©C0E OF OF BOB 1 020408000800090 

BOOO") 

29030 CALL CHAR (96. -OOOOOOOOOOeOeTFFFFOl 

O 1 03060C00000000060C 1 B70FCFFFFC0eOO0OOOO 

0000-)i: 'AVION 

29O60 CALL CHAR ( 1 08 , - OOOOOOOOOOOOOOOOO 1 O 

1 O 1 O 1 O 1 1 OOOOOOOOOOOOOOOOOOOOOOOOOOOO - ) i 

: 'TORPILLE 

29070 CALL CHAR ( 1 1 2 , - 8O4020 1 OOBO4O20 1 O I O 

2O408 I 02O40800 1 020408 1 0204080804020 I OOS© 

402O1 • ) 

290QO CALL CMAR(116,"0I010D07633119CD673 

31 BCF6737 1 F0F8Oe0B0E0C6SCB3E6CCDBF3E6E 

CF8FO-) 

2910O CALL CHAfi(120,-00©000O0©0OI03OFFFF 

F3F0000000000000000000080COFOFFFCF- ) : : ■ 

BATEAU 

29150 CALL CHAR( 132, "00O0FFie3C7C7F3C087 

E0O0O00OOOOOOO0OOO000O002FE02- > I « "HELIC 

O GAUCHE 

2916© C4--01010I010101010101030FSF3F3F00 

0000000000000000000080EOFSFBF8 " 

29170 T4--0OOOOOO2O2O2070FOF1F1FO00000O0 

0OO0OO008O80BOCOE0E0F0F0- 

29180 CALL CHAR( 136, -E18307E0310C670700E 

2 1 6BOF 1 8DE03C 1 OEC DB602C06 1 C6OOB83C0EC 1 23 

45067") 

2930O RETURN 

30010 ' PRESENTATION 

3O02O •—————- 

30040 CALL SCREEN<2):t FOR I-I TO 8 t ■ C 

ALL COLOR(I,2,8)t I NEXT 1 il CALL COLOR ( 

17,16.61:: CALL COLOR ( 13, 7, 1 1 

30030 DISPLAY AT (14, 7) i -• DEBAROUEHENT • 

" li DISPLAY AT (IS, 7) i- * 

30060 GOSUB 13000 

3OO70 CALL CLEAR 

30080 CALL COLOR(l,2,8> 

3008S FOR 1-1 TO 32 ii CALL VCHAR(16, 1,1 

27,6>:t CALL VCHARI22. I, I43.3)i : NEXT I 

3OO90 FOR J- 1 TO 2 ii FOR 1-1 TO 32 I I D 

ISPLAY AT(INT(6«RND)*16, I)SIZE(l):- " l: 

NEXT I :: NEXT J 
30100 CALL HCHAR(13,28. 128.6) ti CALL HCH 
MKI14, M, l^B.6):: CALL SPRITE t* 13. V 
OS, 183.416,88,7, 1 OS. 201 ) 

30110 CALL SPRITE(417,92,7,e9,225,41B.08 
,7,89.2*1.46, 104, 13,94,208) 
30120 DISPLAY AT (23, 1 )SI ZE (7) i "PTSi - IP : 
: DISPLAY ATt22, lO)SIZE(51i-HEi-lHE ll D 
ISPLAY AT (24, 16)SIZE(6): "JO: ";E :s DISPL 
AY AT(23.23)SIZE(5)iM("H- 

30130 DISPLAY AT(22,16)SIZE(3)i-T0:-lT • 
: DISPLAY AT(24, IO)SIZE(3) l "Nil "(N 
3G140 RETURN 
3O50O !i ii m i— — — — — — 

303 lO ' DESTRUC. BATEAU 

30320 ■——————«- 

30330 CALL DELSPRI TE (43) i i CALL PATTERN( 

45,136) 

30333 IF MB-1 THEN H8-0 :: HE-HE-I :i CA 

LL SPRITE(46, 104,3,94,208) 

30540 FOR 1-1 TO 13 ■: CALL COL0R(43, I) : 

: CALL SOUND(lSO,-7, II I : NEXT I ti CALL 

DELSPRITE (45) 

30350 IF KSP-0 THEN P-P* I ELSE P-P*3 ll 

KSP-O 

30560 GOSUB 27SOO i: CALL MOT ION (44, O, IN 

T(RND*4>*1):: BOTO 180 

3O70O ——————— 

30710 ' DESTRUC. AVION 

30720 ——————— 

30730 DAV-DAV*! ■■ CALL DELSPRI TE (431 1 1 
T-T*l >: AV-0 i: CALL PATTERN (44. 136) I I 
CALL MOTION(44,B,3)tl IF T>9 THEN T-9 

30732 IF DAV>4 THEN DAV-0 n HE-HE»1 

30733 IF HE>3 THEN HE-3 

30733 IF HA-1 THEN HE-HE-1 II CALL SPRIT 
E(46, 104,3,94,208) 

3074O FOR 1-1 TO 15 II CALL COLOR (44.1)1 
t CALL SOUNDdSO, -3-1/3,1)11 NEXT I n C 
ALL DELSPRlTE(t4)i i P-P->3 i: GOSUB 2730O 
30730 CALL MOT ION( 43, O, INT (4»RND) *1 ) 1 1 I 
F HA-0 THEN lOOOO ELSE MA-0 it GOTO 300 
3IOOO —————— 

31010 ! LA NUIT TOMBC ' 
3I02O '——-————— 

31030 NU-I ii CALL COLOR! 1,2,6) : i CALL C 

0L0R(12. 16,3):: CALL COL0R(2, 16,6) i I CAL 

L COLOR (46, 3) 

31033 IF E>1 THEN RETURN 

31040 FOR 1-1 TO 32 tl DISPLAY ATUNTU3 

• RND1M. IISIZE(I)!"." II NEXT I 

31030 RETURN 

32000 ——————— 

32010 ' LE JOUR SE LEVE 

32020 ■———«—— 

32030 E-E*I ii IF E>3 THEN 3000 

32040 N-N»l it NU-0 ii CALL COL0R(l,2,e) 

it CALL COLOR(2. 8,B)li CALL COLOR(l2.l6. 

6>tt DISPLAY AT(24,19)8IZE(3llE II RETUR 



EDITEUR GENERAL 




APPLE 



A n'utiliser qu'en cas d'ultlile. programme utilitaire. au- 
trement dit a n'utiliser que si Ion sen sert. 

DAN STEEREY 
Mode d utilisation (tres utile) 

& vous possedez l assembieur BIG MAC, vous pouvez taper le lis- 
ling 1 Bis. sinon. tapez le listing 1 de la faijon suivante CAUL - 151 
< RETURN > 8EO0: A9 01 85 IF A5 73 8D 2B < RETURN > 
8E08: 95 A5 74 8D 2C 95 etc 

Apres vous etre deiie les doigts, tapez CTRL-C < RETURN > puis 
BSAVE ED,A$ 8E00.LS 797. 

Pour lancer ie programme, tapez BRUN ED: vous pouvez alors de- 
couvnr les nombreuses possibilites de ce programme. 
Tapez et oh! que voyez vous apparaitre? LIST! Oui. vous avez 
bten vu. en 1 tour de doigt, la commande LIST s'est aHichee. Jen- 
tends dici votre coeur battre le tambour a lidee que d'aulres 
oommandes suivent. 

Tape2 ' . Je ris d'avance. Essayez shift- 1. j'en pleure. Tapez *." , je 
suis par terre. 

Remettez-vous de vos emotions, nous allons devenir techniques. Di- 
vision de la memoire: attachez vos ceintures. figurez-vous que deux 
programmes Basic peuvent coexister dans la memoire. Tapez ) et 
vous vous trouvez dans la premiere memoire, lapez ( et vous votci 
dans la deuxieme. Etonnant, non? Mais attention, si vous vous trou- 
vez dans !a deuxieme memoire et que vous lapez ). vous perdez 
votre programme. L'mverse n'est pas vrai. Conversion de base. Ap- 

LISTING Ibis ... Rrr Teftra 



puyez sur # et tapez 255. lequivalent en hexadecimal est affiche 
devant vos yeux ebahis Tapez $ et un chiffre hexa. vous imagine? 
ce qui peut se passer. Controle d alfichage: hstez un programme et 
tapez sur la louche ESC, vous sortez alors du listing. Tapez une 
autre touche el le listing saffiche pas-a-pas < RETURN > vous 
permet de sortir de ce mode. Le controle de I'affichage s'eflectue 
aussi pendant lexecution dun programme Calalogue sur deux co- 
lonnes; Tapez shift (pas les editions)-2, el repondez oui a la ques- 
tion si vous possedez un DOS normal (non moditie). enfoncez-vous 
dans votre tauleuil el admirez. Visualisation de la memoireTapez 
CTRL-V. le programme vous demande le numero de la page que 
vous desirez visualiser, Vous pouvez alors passer en mode ASCII 
(Atfichage sublime de caracteres indescriptibles et idiots) en tapant 
A el revenir en hexa en lapant H. D disassemble la memoire a 
partir de I'adresse precisee, les fleches gauche-droite changenl de 
page. F passe en mode Fou ou repasse en mode normal el ESC 
retourne au Basic. Respirez fod. ce nest pas fini. 
En basic, CTRL-L suivi d'un numero de ligne vous donne I'adresse 
en hexa de la position en memoire de cette ligne. Un changement 
de numero de ligne en 65535 impossible en mode direct est desor- 
mais heu...FA!SABLE! Edition des REM: Essayez done de taper 10 
REMpPROGRAMMESIMBECILE (§= crochet gauche pour clavier 
amertcain) puis tapez en mode direct et LIST. Ach surpris! Quand 
vous en avez fini avec ce delire, lapez CTRL-0 suivi de 0. et si 
vous n'avez pas ete assez sevre. tapez RESET et e'est reparti. Ne 
tapez surtout pas CTRL-F, la suite est pour la semaine prochaine. 



Resume des commandes en taoant sur * ou ; 
RESUME DES COMMANDES 



shift 1. 
& 



Contrdle aHichage: 

ESC 

RETURN 

Autre . 

Shift-2 

CTRL-V 



LIST 

ENTREE MONITEUR 

CATALOG 

RUN 

Memoire 1 

Memotre 2 

Conve*s»on hexa dec* 

Converson deci hexa 



H 

D 

Fleches. 

ESC 

CTRL-L.. 

REM* .... 

CTRL-Q 

RESET... 



Son du listing 
Son dece mode 

Pas a pas 

Dos sur 2 coloones 

Visualisation de la memoire 

Passe en mode ASCII 

Passe en mode hexa 

Dosassembie la memoire 

Passe d une page a I autre 

fletour Basic 

Adresse d une ligne en memoire 

Formaltage des REMs 

..Fin 

Ei e'est reparti, 



11 • (C) I9S4 


STEERS 




12 








13 • 
14 




NEBDOGIC1EL 




15 

. v.- ■:.,:-■ 


. 


•0021 




: - rxTPTR 




•ooes 




18 L : nnum 




•0050 




1? BASIC 




•0 3OO 




n LOCK 




44315 




21 PNOLIN 




•061 A 




22 LINPRT 




SED24 




23 PRNTAX 




•F94I 




24 --&,-■■ 




•F949 




25 BELL2 




•FBE4 




2* tabu 




•FB5B 




2? APPLEII 




•FB6Q 




26 '-.■-.---■'-■. 




•F66F 




29 BASCALX 




•FBC! 




30 BS 




•FCIO 




31 UP 




*FCl~ 




32 HOME 




•FC58 




33 WAIT 




•F0A8 




34 KEVIN 




•fdib 




35 PR8YTE 




•FDDA 




36 COUT 




•FDED 




37 OUT I 




%?l-r't 




33 CP&O 




*FD8£ 




39 SON 




• FF3A 




J[ -,"^:.- 




♦ E752 




■-■ -=t*e _ 




• D067 




42 :■■■ INI 




•D52E 




43 ISLETC 




«E0 7C> 




44 STOPAOU 




•FBFO 




45 TEXT* 




«FB3C 




44 '/Toe 




• FC22 




47 CLPECL 




•FCPC 




48 PPEPR 




•FF2D 




49 BETlNU 




•FE90 




30 SETNORM 




• FE84 




3 : SETHuM 




•FFSA 




52 SETCOL 




• FB64 




53 VLINE 




»F828 




34 HLINE 




•FBI 9 




35 








5* 








57 COMMAND 




•0006 




58 MEMNUM 




• 00 IF 




59 PAGE 




•0009 




60 PAGEH 




•0009 




41 MARGE 




•00 ID 




',;■ HOVE 




•O01E ;A5CII/HEX 


63 PILTPE 




•004A 




-j SAUUV 




•004B 




43 SAUUX 




• 004D 




16 








67 ESCAPE 




»00?6 




43 RETURN 


- 


•0400 





ORG • SEOO 
HITIALISATION 



iTi t'.EII iij-i 



LOA 


1 (WIT 


STt. 


• 73 


LW 


( UNIT 


STA 


• 74 


LD*. 


| ■ DEPART 


57*. 


•3ti 


LOA 


( -L'EfMPT 


ST« 


1 ■' 


LE*. 


. ■ CONTROl E 


JIA 


*16 


Ut-A 


■ ■ ■ 


f ;.. 


• 37 


LDA 


f RESET 


LDf 


(/RESET 


JSP 


■ 1 ■ ■ ■ 


JSP 


> :■>■,. 


JtP 


APPLE It 


js» 


CPDO, 


LDA 


112 " 


ETTA 


• 24 


J£P 


PRINT 


A5C 


•EDITEUP 01 



• 3D0 



l |4 0EPAR1 



ROUTINE DE SELErrir., 

IWTEP'^ALLE DE CODE 

KEYIN 

(•«E 



CPX 


£0 


BEO 


TESTS 


PTS 




:sts STA 


COMhW^D 


STY 


SAUuy 


ANNULAT 1 ON 


LORS D' INPUT 


LDA 


• 33 


CMP 


{•BO 


BEO 


NUL 



SELECT ION DE PPDGPAMME 



LDY £»FD 



LDA 


TABLE, V 


BFQ 




CHP 


COMMAND 


BNE: 


&EPBCL 


L DA 


TABLE* 2 


PHA 




LDA 


TABLE* 1 


- -', , 




LDA 


COMMAND 


1 OY 


SAUUY 



• * LISTE DES CQMHANOES fc ADR. 

t 

■ TABLE ASC " ! * 



DA 


CATALOG- 1 


HE"/ 


A2 


DA 


CATALG2-1 


ASC 


"€- 




DECI HE' -1 


-';C 


■•' 


DA 


HEXADEC-1 


AS) 




DA 


MEMAC-P- 1 


..-■■ 




I)A 


D i ■ mai - 1 


ASC 




DA 


RE5TP-1 


A«r. 




DA 


M0N!T£iJP-1 




"*• 


DA 


BEM-1 


,:. I" 




DA 


RUN 1 






DA 


LI5T-1 


HF> 


96 


DA 


MEMTR3P-1 


HE- 




DA 


(-: ■ i t - 1 


HE ■ 


ac 


DA 


FNOLGN-I 


(.■■< 




DA 








DA 


AFFCCMM-l 


HE» 


86 


DA 


FINDEfi-l 



■ COMMANDES OPO^iCiPES 



MONITEUR 


JSR 


BIP2 




JMP 


♦FF69 


CATALOG 


JSR 


PRflBUF 




..■■. 


■ CATALOG" 


FLAG 


ME/ 
RTS 


00 


RUN 


JSP 


PRNBUF 




ASC 


•RUN* 




HE" 


00 




LDA 


(•8D 




RTS 




LIST 


JSP 


PPN6UF 




ASC 


"LIST- 




ME' 


00 




PTS 




KESET 


i- r- 


• 3EA 




fW 


• DAFfi 



PARI I riot, r,£ LE MEMOIRE 



LD/ MEMNUM 
LDA £0 
JSR LINPPT 



PESTAUPATICM DE LA MEM D'ORIG. 



Carte [>E LA MEMOIRE 



> ADPESSE a CONTENU DES PD1NTEURS 





CMP 


El 




6EQ 


PPNUMEM 




LDA 


103 




STA 


175 




; DA 


104 




STA 


176 




LDT 


«3 


FESTAUP2 


LDA 


S"JPTR . f 




STA 


103, Y 




DEV 






BPl 


RESTAUR2 




DEC 


MEMNLM 




JMP 


PPNUMEM 


EVPTR 


HEX 


00000000 



358 MEMADR 



HEX 
HEX 
HEX 
HEX 
JSR 
JSR 
ASC 
HEX 
JSR CADRE 



6e*7eOAFFr-FF6A49 

7473 

FFFFFFCFFFFFFFFF 

FFFFFFFFFFFF 

HOME 

PRINT 

■ OCCUPATION MEMOIRE" 



471 MEMTB2 



HEX BD 

ASC ' PAGE : * 

HEX 00 

JSR INPDCC 

CPX CO 

SNE MEKTR2 

JMP BASIC 

STA PAGE * I 



CONVEPSION DE EASES 



LDA 
STA 
JSR 
JSR 
JSR 
ASC 
HEX 
LDY 
LDA 
STA 
LDA 
STA 



£4 
•20 
CRDO 

ECRPROG 

PRINT 

"APPLESOFT* 

BD8DO0 

£•00 

AOR.Y 



241 DECJHEX JSR BS 

JSP IMPC 

JSR »FC1 

LDA £15 

STA »24 

LDA £■•' 

jsr com 



265 
266 
267 



LINNUM*! 

PRNTAX 

RTS 



273 HEXADEC 



• 3E 

•3F 

LINPRT 



■ CONTROLE D'AFFICMAGE 



to? 


CONTROLE 


JSR 


OUT1 




2se 




■■!■ 


£ RETURN 


iFIN DE 


2B9 




BNE 


RTSL 


JLIGNE' 


290 




1 DA 


•cooo 




?91 




CMP 


(ESCAPE 




292 




8E0 


CTRL4 




>-- I 




■■■ 


£•90 




?94 




BMI 


RTSL 




293 




bit 


• CO 10 


iTESTE 


296 


CTPL2 


; DA 


•COOO 


1-16384 


297 




CMP 


ERETURN 








BEO 


CTRL3 




299 




■ MP 


(ESCAPE 




too 




BEG 


CTRL4 




301 




CHP 


£•60 




30? 




BMI 


CTPL2 ' 




303 


RTSL 


RTS 







1 CATALOG SUP 2 COLONNES 



DT.WEM 


LDA 


MEMNUM 
£2 






(.:< Q 


PPNUMEM 






LDY 


(3 




DI^1EM2 


i DA 


103, Y 


IPOINTEURS 




STA 




|OU 




DEr 




1 PROGRAMME 






, .. H| ., 






. DA 


175 


ISLCUATION 




ITA 


103 


|Dtl 01 BUT 




: 1 A 


176 






■, r ■ , 


104 


■Ml ■: i| i.i 




r f, 


H.-.H 


INEU 




INC 


MEMNUM 




PPNUMEM 




PRINT 





CATALG2 JSR 


PRINT 




42V 




JSP 


TC*TI 


HEX 


8D 




.1 ,: 




LDA 


(17 


ASC 


■DOS NORMAL 


(0/N>?« 






1 R 


TABU 


BRK 






432 




JMP 


RTS 


JSP 


CLAUIER 




•■ ■ 


E6 


JSR 


CRDO 


CMP 


£*N* 




434 




' )« 


ECRPROG 


BEO 


FINCAT 




1 3 




JSR 


PRINT 


LDA 


£»C 




4 36 




ASC 


'BINAIRI 


STA 


•AE17 




43? 




• IE' 


■ 


LDA 


£«EA 




4 38 




JMP 


L5 


STA 


•AE22 




43* 








STA 


•AEZ3 




440 


ii m 


ASC 


'DEBC 


STA 


•AE24 




441 




,, , 


"FINiLGRi 


LDA 


£-.' 


iPEMPLACE 


442 








STA 


LOCK 


|« PAR . 


443 








LDA 


(»EA 






PRINT! 


LDA 


TOTE . . 




44305 




443 




.!■ W 




STA 


4430 6 




446 




, Ml 


l»BA 


JSR 


•A36E' 


I CATALOG 


447 




\:\ a 


F INPRNT 


LDA 


(74 




446 








1 1 (• 


.!■!■. fi- 




449 




BNE 


PRINT? 


LDA 


(4f! 




450 


riNPwn 


V u 


fPI'L.NI 


STA 


44303 




451 






£-»* 


LDA 


(t)D 


: i-i r 1 


4S2 




JMP 




8TA 


l«E1 7 


iTW M 


433 








LDA 


(•20 


[ P..PAM , 


434 








I u: 


IAE2? 


:ORDI- 


■I-.-. 


• 7 • VlSUAl 


LDA 


• »,' 


INAIPE .- 


45A 








BTA 


IAI • 




.<-..■ 








LDA 


1 I..F 




■ I'.i 


MEMTRSP 


i I-, 


too 


■ r.. 


M| .-■■ 
('•* 




439 
440 




ETA 

LtA 


FILTRE 








461 




STA 


MODE 


i ...,.- . ■■■. 


I-. . . : ■ 




462 

■ i- . 




1- fc 
JSR 


ti;.ti 

PRINT 



• EN-TETE 1 COMMANDES 

MDEPART JSR TEXT I 

JSR HOME 

LDA (0 

STA PAGE 

MDEPART 2 JSR 



TEXT I 



485 
486 
487 




ASC ■ PAGE •* 

HEX 00 

Jsr clreol 

LDA page* i 

LOX PAGE 

JSR PRNTAX 

INC »24 

LDA £■<* 

JSR STORADU 

LDX PAGE 

LDA PAGE* I 

JSft LINPRT 

LDA C >" 

JSR STORADV 

LDA FILTRE 

BEO IN5TR 

JSP PRINT 

ASC * FILTRE" 



■A. SCII ' 

>, . i . a 
•ImESASM ' 
■P. AGE ' 
■ESC,<-.- 



i, ■...,. 1 1,, i }<,. 

JSR 
JSR 

JSR 
JSR 

LDA 
STA 
LDA 

JSR 
JSR 
JSR | 
JSR . 
LDA 



SETINU 
ORaSHOR 
GRADUER 
GRADMOR 
C36 

• 20 
(3 

TABU 
CRDO 

.GRADUER 
SETNORM 
£•03 ■PO*TM 

• 20 



STA MARGEDR 



STA •?? 



JSR TASU 

JSR CPDO 
JSR HOME 

i AFFICMAGE ASCII 



SELMODE LDA 
CMP 
BEO 

JMP 
MEM JSR 

LOY 
MEH2 STY 

LDA 



■■■,,' 
■;■„-. 
339 
360 
361 
S«3 

-,/.i 
343 

■■ft* 

■■-.(■ 



LOY 
CPY 
BCC 
PHA 

INC 
JSR 
LDY 
STY 
PLA 
FILTRTN LDX 
BEO 
CMP 
DCC 
CMP 



' NOPRNT 

> MEM4 

MEM5 



[■<■■■■■ 
LDA 
OPA 
.1,, 



MEM 

Ml MHI ■ 
HOME 



• 24 

FILTRE 

MEMS 

£•20 

NOPRNT 

(•80 

MEM4 

£«A0 

MEM4 



9M JMP TOUCHE 

Ml 

-=; . MruH«« ^, A 

39} 

564 MP**, LM 19 
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PARLEZ-MOI FRANQAIS! 

Enfin de vrais logiciefs d'aventure pour APPLE 11+ , lie et lie, ou I'on peut dialoguer 
avec son ordinateur, en franqais et avec de vraies phrases. 
FROGGY SOFTWARE invente Vanalyse de syntaxe: Cocorico! 



PARANOIAK 



PARANOIAK: 




, DOtfl ■ 



p-,-.i., flfl 

t Pout I 



.{» \a !o'"> ga'opa"!'? qua erf '< 
geoi confix ur* tonne do'duies' Juge/ pJutW e 

■ ■ ... ;■■■■■ 

voo9 dObwsssvr o«> ce lonn«au de probleTie*, VOUS *vi»; f«" (inns M vine *i rencontre* 

ceu> qui sonl suscephbleF de voui lue' de ce tjourts'er An na^.vti do vet ' 

vm coeMic-ents de sent*, de mofil ef dwoeni flueici"" ; rr>en»g*r powf 

evrter Ui depome louie ou linlarcius Ce >eu possede une analyse de ByW . 

pefmet de dtseule' itbfomem avec vowe APPLE PARANOIAK esi un i*u concu el «"l en 

Irangais Grapn'V* 1 * naule resoiulion eouieuf et humom gs'anh* D*p*c"e(-vout avani Que 

lei amflncains ne novis le piralenl. Damned" 

EPIOEMIE: 

flpijUi ou <« voui chaiou.W D-«ic>ie It due' Mai* ceil vous qu 
Oe Hoover le remede a ce virus qui r mi abatlu «u( la lerre Same/ dans voire va«**au 
ipanat pour larre i* nnwette enlte quatrn planetei comptetemeni loutOQues Oei be»ea 
eilralefresticn du PARAD1SIA au> monatres de FABULA vous vivre? d*9 ovenlures a cW* 
deequelles lOdyssee dUlytse vou* appaiaitra comrne O" p>p> do chai Maia ces Dond» 
dans lEspece n* aeraient r>*n * ><* netaienl accompagnas de bond* dans le temps' Nt 
vous flionne/ done pas S* vous <tOM reWOuve/ brusQuemeni en pt*me guer-- 
ou dana une pyram«l* de nam*** II 

Co |eu daveniure eomporte da* laDleaui amm*s Voire persprcaoi* devra done et<* dou. 
biee d une bonne dose d edresse pour pan/en» A enrnyer I ep-deme 



EPIDEMIE 



titttt 



.bbY *2 



Vous pouvez trouver ces disquettos Chez voire ravendeui habitual, ou fas command : SHIFT 

EDITIONS 27 rue du Gal Foy, 75008 PARIS, en joignanl un cheque de 350 Irancs. par dlaquette 



INVMAT 



Vos cours de Maths sont lointains et cette matrice vous 
parait bien grande pour arriver a linverser de tete? 
Rien de plus simple maintenanl... Des que vous aurez 
tape cet utilitaire. 

Slephane BRUNET 

Apres un XEO "INVMAT", la HP vous demande I'lntroduction du 




HP 41 



rang de la matrice Ceci realise, vous pouvez alors voir a I'alfichage 
MAT INIT i,j (i el j varienl de 1 a n). 

Le programme requiert ainsl les coefficients, ligno par ligne. de la 
matrice que vous desirez inverser. Ceux-ci initialises, lapez O si 
vous deslrez les resultals intermediates ou N dans le cas contraire 
Dans le cas O. et apres un temps de reflexion, la machine affiche Ci 
(i variant de 1 a n) pour vous taire connailre Iss coefficients pivots 
prealablement calcutes. Puis vous voyez. M i. j Ces M sont les 
nouveaux coefficients de la matrice translormee, les n premiers 
etant ceux de votre matrice de depart, les n aulres etant ceux de la 



matrice unltaire translormee (1'inversion etant roalisee survant la me- 

thode dite du pivot). Ensu'te a nouveau. laffichage des coe f t i rJem 

pivols. puis des deux matrices transformer et cela iusqua rappart- 

lion dun TONE puis des signesr S i. I (s comma solution). 

La HP vous donne alors bien enlendu. seutomern les coefficients de 

votre matnce inverse. I'autre matrice etant reduite a la forme dune 

matrice unitalre. 

NOTA: exemple dune matrice unitalre:100 f 

010 > de rang 3 

001 I 



17:57 96.95 
9I*LBL -INVMAT 
K -AUTFtfr • 

93 •STEPHfM PRUNET- 

94 -25 RUE *? 80IS-- 
85 "1-KHIfR- 

96 -37999 TOURS- 

97 -16<4?> 85-75-27- 

98 " * 4!cV" 
W -1EBUT PRGN" 
19 CLA 

II GTO -1HVERS- 
12HBL -HOT- 

13 JtCL 85 

14 I 

15 - 

16 RCL 81 

17 • 

18 2 

19 » 
28 19 

21 » 

22 RCL 86 

23 ♦ 

24 STO 88 

25 RTN 
26»L8L -COEF- 

27 2 

28 RCL 81 

29 Xt2 
39« 

31 RCL 81 

32 i 

33 Rtt 93 

34 t 

35 18 

36 * 

37 STO 88 

38 RTN 

39«LBL -IMVERS- 



48 CUG 

41 -RHG MATRICE?- 

42 PROMPT 

43 STO 81 

44 1 

45 STO 83 

46 FIX 9 
47*LBL 81 

48 1 

49 STO 84 
59*LBL 82 

51 RCL 83 

52 STO 85 

53 RCL 84 

54 STO 86 

55 XEO -NOT- 

56 CLA 

57 -NUT. INIT • 

58 f-:" 

59 ARCL 83 
68 ARCL 84 

61 "F ?• 

62 PROMPT 

63 STO IND 88 

64 RCL 85 

65 RCL 86 

66 X«V> 

67 CTO 83 

68 RCL 91 

69 ST* 86 

78 XEO -HUT- 

71 1 

72 STO INI 88 
73«LBL 83 

74 1 

75 ST* 84 

76 RCL 81 

77 Rtt 94 

78 X<=Y"> 

79 CTO 82 



88 1 

81 ST* 83 

82 RCL 81 

83 RCL 83 

84 x<=y 

85 CTO 81 

86 CF 88 

87 AON 

88 -RES. INTER 0/N? 

89 PROMPT 
98 BSTO X 

91 AOFF 

92 -0- 

93 ASTO Y 

94 X=Y' 

95 SF 88 

96 1 

97 STO 92 

98 FIX 3 
99*LBL 84 

188 RCL 82 

181 STO 95 

182 STO 86 
193 XEO -HOT- 

184 RCL IND 88 

185 X*8' 

186 GTO 89 

187 RCL 82 

188 STO 87 
189»LBL 85 
118 RCL 87 

111 RCL 81 

112 X»V? 

113 GTO 87 

114 TONE 9 

115 TONE 6 

116 TONE 8 

117 "IMPOSSIBLE- 

118 PROMPT 
II9«L8L 86 



128 STOP 
121 GTO 86 
122»LBL 87 

123 1 

124 ST* 87 

125 RCL 87 

126 STO 85 

127 RCL 92 

128 STO 96 

129 XEO -NOT- 
138 RCL IND 96 

131 X«8? 

132 GTO 85 

133 RCL et 

134 2 

135 « 

136 STO 88 
137»L8L 88 

138 RCL 82 

139 STO 85 
148 RCL 88 

141 STO 86 

142 XEO -MAT- 

143 STO 93 

144 RCL IND 83 

145 STO 89 

146 RCL 87 

147 STO 85 

148 XEO -MAT- 

149 RCL IND 88 
156 STO IND 63 

151 RCL 99 

152 STO IND 86' 

153 1 

154 ST- 88 

155 RCL 88 

156 X«8' 

157 GTO 88 
158«LBL 89 
159 RCL 82 



168 STO 85 

161 STO 86 

162 XEO -HUT- 

163 STO 89 

164 1 

165 STO 83 
166*LBL 18 

167 XEO -COEF- 

168 RCL IND 89 

169 1/X 

178 STO IND 86 

171 RCL 86 

172 STO 88 

173 RCL 63 

174 RCL 82 

175 X=Y? 

176 GTO 11 

177 RCL 83 

178 STO 85 

179 RCL 82 
186 STO 86 

181 XE8 -MOT- 

182 RCL IND 89 

183 CHS 

184 RCL IND 88 

185 • 

186 STO IND 88 
18?*L8L 11 

188 FIX 6 

189 FC? 86 
198 GTO 12 

191 CLO 

192 "C<- 

193 -F- 

194 RRCL 63 

195 -F>=- 

196 -F- 

197 FIX 2 

198 RRCL IND 88 

199 PROMPT 



288*LBL 12 
281 I 

292 ST* 93 

293 RCL 81 
264 RCL 83 
285 X<=Y' 
288 GTO 18 

297 1 

298 STO 83 
289*LBL 13 
218 RCL 83 

211 RCL 82 

212 X=Y' 

213 GTO 15 

214 1 

215 STO 84 
216*LBL 14 

217 RCL 83 

218 STO 95 

219 RCL 84 
229 STO 96 

221 XEO "MAT- 

222 STO 88 

223 RCL 82 

224 STO 95 

225 XEO -MAT" 

226 STO 99 

227 XEQ -COEF- 

228 RCL IND 96 

229 RCL IND 69 
238 « 

231 RCL IND 88 

232 » 

233 STO THE 98 

234 1 

235 ST* 84 

236 RCL 81 

237 2 

238 • 

239 RCL 64 



248 X<=Y' 
241 CTO 14 
242*LBL 15 

243 1 

244 ST* 63 

245 RCL 81 

246 RCL 83 

247 X<=Y1 
243 GTO 13 

249 1 

258 STO 64 

251 RCL 82 

252 STO 83 

253 STO 85 
254*LBL 16 

255 RCl 84 

256 STO 96 

257 XEO -MAT- 

258 STO 88 

259 XEO "COEF- 
268 RCL IND 88 

261 RCL IND 88 

262 • 

263 STO IND 88 

264 1 

265 ST* 64 

266 RCL 61 

267 2 

268 « 

269 RCL 84 
278 X<=V> 

271 GTO 16 

272 RCL 82 

273 RCL 81 

274 X=V> 

275 GTO 19 

276 FC? 88 

277 GTO 19 

278 1 

279 STO 63 



288«L8L 17 

281 1 

282 STO 84 
283*LBL IS 

284 RCL 93 

285 STO 85 

286 RCL 84 

287 STO 86 

288 XEO -MAT- 

289 CLA 
298 -M " 

291 f 

292 FIX 8 

293 ARCL 83 

294 -F- 

295 ARCL 94 

296 FIX 2 

297 ■(■ : - 

298 ARCL IND I 

299 PROMPT 
399 1 

391 ST* 94 

392 RCL 91 
363 2 

384 « 

385 RCL 84 

396 X<=Y"> 

397 GTO 18 

398 1 

399 ST* 93 
319 RCL 91 

311 RCL 83 

312 XOY' 

313 GTO 17 
314*LBL 19 

315 1 

316 ST* 82 

317 RCL 81 

318 RCL 82 

319 X(=Y' 



326 GTO 84 
32KL8L "PES- 

322 TONE I 

323 1 

324 STO 83 
325*LBL 29 

326 1 

327 STO 84 
328*LBL 21 
329 RCL 83 
338 STO 85 

331 RCL 94 

332 RCL 91 

333 * 

334 STO 86 

335 XEO "MAT- 

336 CLA 

337 -S - 

338 FIX 8 

339 ARCL 83 
349 ARCL 84 

341 -F • 

342 FIX 3 

343 ARCL IND ( 

344 PROMPT 

345 1 

346 ST* 94 

347 RCL 91 

348 RCL 84 

349 X<=Y' 
358 GTO 21 

351 I 

352 ST* 93 

353 RCL 81 

354 RCL 83 

355 X<=V 

356 GTO 28 

357 GTO -PES- 

358 -END. 



TRON 



inspire du film de Wait Disney du meme nom, ce jeu 

combine habilete et strategie. @ 

II se joue en 10 manches et le premier joueur dont le q 

point heurte un obstacle, perd une manche. q 



Jean SPRIET 



Instructions; Le joueur 1 se deplace avec Z, O, E, Z. Et le joueur 2 
avec — . -. . | . I . 




1 'CANON X-07 TRON 

2 'Par Jean Spriet 21 au*r. . de* acacia* 
32308 Rueil 

3 'Copyright Hebdoglciel el t'auteur. 

* 'PRESENTATION 

. :OLEAR200:At="TRON":B>= " 
8 C«"A**B«»At*B»;*At)*B**f>**B»*r1t*et*At<-8* 
*A« 

10 FORI=1T025:LOCATE5,2:PRINTMID»(C«,I, 1 
0j;:BEEPI,5 
1 J IFINKEY«=CHR»r.l3)THEN12ELS£NEXTt 

12 DinXC62):CLS:L0CATE8, 1 :PRJNTA» 

14 L!MEC45,5)-(74 1 5):LINE-C74,]7j:LINE-( 

45, I7):LINE-C45,8J 

16 PRINT :PRiNT" PAR JEAN SPRIET"; 

18 FORI=lTO500:NEXT:CLS:PRINT"In«trucl lo 

n CO'N) ?";:I-48 

13 8EEPI, 5:1=1-1 : IF f=0THENI ^48 

20 ft»=INKEr«: | Fft« = "0" THENGOSUB1080E1-SE IF 

fit -"THENI9 

25 DEFSTRA:CONSOLE, , ,0,0:ONERRORGOTO400 

J0 A1»="LE JOUEUR ]":A2*="L£ JOUEUR 2" 

32 CLS:PRINT" U|t«t«« ?":PRJNT"1 — LE 

NT" 

34 PRINT"2 — nOYEN":PRlNT"3 -- RAPIOE"; 

38 A«-INKETt:IFA»-"-THEN36 

38 IFABS(ASCtA)-50]>lTHEN36ELSEST--C51-AS 

CCfl))*2.0 

40 RESTORE 



45 'INITIALISATION 

50 XC53) = 1 :X(4IJ=2:XC22J=3:XC82)=4 

55 Xt0J=6:XCl)='5:XC2J='7:XC3)=8 

60 XI^40:X2=80:T1-|0:T2=20:O1 = 1 :D2-- HE] 

-0:E2=0:f=0:A="":CLS 

70 f1=l :N=0:Q*-1 

95 'BOUCLE GENERALE 

188 PSETrxi , n j :PSET(X2, Y2) 

1 10 FORI = ITOST:n=INKEf« 
1 12 IFA»""THEN200 

1 15 ONX(ASCCA)-28)GOTO120, 130, 140, 150, 16 
0, 128, 180, 130 
1 17 GOTO) 10 
120 O1=O:EI=N:GOTO2I0 
130 01=n=EI N:GOTO210 
: i01*N)00T02ia 
ISA i I HjD1-NiGOTO210 
[00 D2 0J62«N:a0TO2ie 
170 02 M:E?^N:&OTO210 
188 E2'O:O2=N:GOIO210 
"■ 'i/ NJGOTO2I0 
■ ■■ 

/in XI X]*DliX2 X2*C2.ri>y.*El :T2 rv*t2 
220 IFNOrpolNTCX] ,ri JANONOTPOimtX?, T2)T 
mi Ml 00 

223 'FIN riANCHE -- 

225 If 1'ijtnrrxi . n | THEHf i 

2 10 I* PQINT(X2, r2)TM£NI 

300 F0RI = 1T04:IFF = -I0RF'--3THENPRESET(XI, 



CANON X07 



--> SCORE 



Tl) 

305 IFF=-20RF=-3THENPRESETCX2,T2J 

307 REA0N0,TE:8EEPN0,TE 

318 IFF=-10RF=-3THENPSETCX1,Y1) 

315 IFF=-20RF=-3THENPSETCX2,Y2) 

317 REAONO,TE:BEEPNO,T£:NEXTI 

320 CLSMFF--1THENPRINT" ";Al«i" PERD": 

S2=S2M 

330 IFF=-2THENPRINT" ";A2«;" PERD":S1=S 



1*1 



340 IFF--=-3THENPRINT" TOUS PEROENT" :S1 - 

SI ♦ 1 :S2=S2»1 

350 GOSUB2000:CLS:PRINT" 

":PRINTA1«;" : " ;S1 

360 PRINTA2*;" " ;S2 : IFS1 = 10ANDS2= 10THE 

NPRINT'TIATCH NUL" :GOTO1500 

362 IFS2=10THENPRINTA2t;" GA6NE" :PRINT"L 

E MATCH" :GOTOI500 

364 IFS1M0THENPRINTA1*;" " ;"GAGNE" :PRIN 

T"LE MATCH" :GOTO1508 

366 GOSUB2000:GOTO40 

368 'MUSIOUE 

S?e DATA24, 10,24, 10,24, 10,20,20,22, 10,22 
, 10,22, 10, 19,28 

395 'SORTIE O'ECRAN 

400 IFXK0THENX1=0:F=-1 
410 IFXI>J19THENX1 = 119:F— 1 
420 IFYK0THENY1»0:F— 1 
430 IFYI>3ITHENY1-3I :F=-1 
440 IFX2<0THENX2=0:F=F-2 
450 IFX2>lI9THENX2='n9:F-F-2 
460 IFY2<8THENY2^0:F=F-2 
478 IFY2>31THENY2-3i:F=F-2 
480 RESUME308 

900 'INSTRUCTIONS 

1088 CLS:PRINT" * * * TRON * i »" 

1010 PRINT"Inttruct <ont : Ce Jeu no 

c«it It* 2 Joueurs . " ; 

1015 GOSU82000 

1028 CLS:PRINT"Chocun •« dirige turl'ecr 



POUR" :PRINr" 



hPLir 



1825 GOSUB7088 

1830 CLS=PRINT"En utiliiai 

c* eulvante* :" :GOSUB2088 

1848 CLS=PRINT" 7 

E LE JOUEUR" 

1850 PRINT" i No 1. " :GOS 

1060 CLS:PRINT"Le* 4 ( teche* pour 

ueur no 2. " :GOSUB2000 

1870 CLS:PRINT"Le Icr ";CHR»C1373 

ter" 

1088 l J RINT"un trail oi, If bord perd U p 

art le.":GOSUB2000 

1898 CLS:RETURN 

1400 'RESULTATS 

1588 FORI=1TO580:NEXT 

1518 IfABS(Sl-S2]>7THENPRINT"UICT0IRE EC 
RASONTE !" ; :G0T01588 

1520 IFABS(SI-S2J>4THENPRINT"UICT0IRE HO 
NDRABLE .";:GOTO1580 
1538 PRINT"DE JUSTESSE 
1580 PRINT"Une autre parlie ? 
1590 A*=INKEY*:[f Al= "0" THENRIJNLLSE IFA«<> 
N"THEN159BELSEEND 

1988 'SOUS ROUTINES - - 

2000 LOCArE1l.3:PR|NI"<Retum>";:8EEP20, 

3 

-•"Ui [I [NKEYi i iikii 1UIHENRETIJRN 

sttW LOCATI 17, JJPRIN1 " ; :GOIO2800 



>>J^ 
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DEUX SUPER-CONCOURS PERMANENTS 



10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ' 
Rten de bien or iqinal dans cetle 
lormule, pourtant nous es- 
sayons de laire quelque chose 
de different : nous organisons 
un concoufs permanent tous 
les mois et tous les trimestres ! 
Etavecdes prix dignesdes pro- 
grammes que vous aliez nous 
envoyer ! 

De plus, ce seront les lecteurs 
euK-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'.nter- 
venant que dans le cnoix des 
programmes qui devront etre 
ORIGINAUXet FRANC AIS. Si 
voire programme n"est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
l "amel:orer pour pouvotr nous le 
proposer a nouveau. 



Pour participer, it vous suffit de 
nous envoyer vos programmes 
accompagnes du foon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Bonne chance! 



Reglemenl 

ART 1 HEBDOGIC1EL organise 
de facon mensuelle el Irimes- 
tneile un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois el du Inrfieslre 
ART 2 Ceconcoursestouverta 
lout auteur de logiciel quelque 
soil le materiel sur lequet il est 
realise L'envot d'un logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de noire 
journal constilue I'acte de can- 
didature 

ART 3 La redaction d HEBDO- 
GICIEL se reserve le droit de 
seleclionner sur ta base de la 
qualile et de loriginalrte les logi- 
ciels qui sonl publies dans le 
journal 

ART 4 Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilteurs logiciels mensuel el 
Irimestnel 

ART 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART. 6 Le pnx alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours Irimestnel. 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'mlerrompre a toul 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine 1'acceptation par 
les concurrents du presenl re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fori pouccentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi. pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom 

Prenom : 

Age Profession 

Adresse : 

N T telephone : 

Nom du programme 

Nom du materiel utilise 

declare etre I'auteor de ce programme qui nest ni une imitation m ur>e 
copie dun programme existanl Ce programme reste ma propnete et 
j'autorise HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 trancs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obtigatoire : 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un desenplif detail le d u malenel utilise. 
d'une notice d'u li hsation du programme Les supports des program* 
mes publies sont conserves , n'oubiiez done pas den faire une copie 



RE COM MAN DAT IONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoye2 vos supports, mode 
d'empioi, listings et bon de parti- 
cipation dans une meme enve- 
lope*. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur voire 
Bon de Participation 

• N'oubiiez pas et ceci esl tres 
important d'mscrtre sur vos sup- 
ports voire nom, le nom du pro- 
gramme et le materiel utilise. 
Notei dans les premieres hgnes 
de votre programme, sous forme 
de REM. voire nom. le nom du pro- 
gramme ette materiel auqueliles! 



deslme Nous pourrons ainsi re- 
perer lacilement les listings, une 
fois sortis de 1'imprimanle 

• Dupliquez plusieurs fois sur la 
casselte et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arrjver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles 

• En ce qui concerne les bons de 
participation, meltez votre adres- 
se complete et voire numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "pedtes 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I objel de voire cour- 
ier 



• Expliquez les particularites de 
votre ordinaleur el le moyen 
d'adapter voire programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evrlez de nous envoyez 
lesjeux survants : 8IORYTHMES, 
MASTERMIND. RENDU. TOUR DE 
HANOI. CALENDRIER. BATA1LLE 
NAVALE. POKER, JACKPOT. 
BOWLING. BLACK JACK. LABY- 
RINTHE. MEMORY; SIMON, 421. 
OTHELLO. SOLITAIRE. LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LISRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 






SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 


Les editions du CAGIRE oflrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "ou tour de la bou- 
cte" de Janick TAILLANDIER. 





RECOMMANDATIONS 

PARTICULIERES 

AUX POSSESSEURS DE 

TRS80 

Indiquer avec precision le mo- 
dele d ordinateur auquel le pro- 
gramme esl destine. Si le pro- 
gramme est enregistre sui 
cassettes utilisez obligator 
men! la Vitesse de 500 bands, 
meme sur un modele III. 
Dans tous les cas ou le pro- 
gramme est enregistre sur cas- 
sette il taut avoir utilise la Vi- 
tesse de 500 bands el non. en 
particulier. la vitesse de 1500 
bands du modele 111. 



AGENDA 



Votci un programme pratique qui permet de mGmoriser 
1 1 messages de 36 caracteres. 

Christophe CHANTRAINE 
B«en entendu, on peul augmenter le nombre de messages, ainsi 
que leur longueur en modifianl le DIM de la ligne 100 et les boucles 
FOR I = O TO X des Rgnes 130, 180, 200. 260, 280. 
Le mode d'empioi est assez simpie. Lors de la premiere utilisation il 
faut lancer le programme par un RUN 100. MaJs par la suite, il suffit 
de faire def D (sans quoi le contenu des memoires serait perdu). 
Si Ion demande le menu, le PC affiche toutes les options possibles' 
puis demande votre cboix. 

Pour memoriser un message, entrer 1. II faut entrer ce message 
sous la forme suivanle: 

ABXYZT message. AB etant les 2 premieres leltres du jour. XY le 
numero du jour et ZT le numero du mois. Par exemple: VE1805 
Acheler Hebdogiciel signifie. le vendredi 18/05 acheter Hebdogiciel. 
C'est d'ailleurs ce que vous affiche le PC, suivi de la question OK? 
Si vous vous etes trompe. repondez Non et retour au menu. Dans le 
cas contraire, vous retnlroduisez votre message. 



PC 1251 



Pour lire un message, entrer 2. Vous entrez soil la date (sous la 
lorme vue ci-dessus) et s'il y a un message pour cette dale, le PC 
vous la donne. Soil "99" pour que le PC affiche tous les messages 
quit a en rnemoire. 

Pour (aire une mise a jour, taper 3. 2 options : soil supprimer les 
.messages anteneurs a la date que vous entrez, sort taper 9999 pour 
tout vkJer. 

Pour sauvegarder votre agenda sur bande. tapez 4 et suivez les 
instruclions donnees par le PC. 

Pour lire un fichier enregistre sur une bande, vous entrez 5 el vous 
suivez les instruclions. 
Pour sortir du programme, tapez 6. 

Le programme CALL & 7040 et CALL & 11E2 pour produire des 
sons differents du Beep ordinaire et CALL & 1 1 EO pour maintenir un 
commentaire a I'affichage pendant que le PC Iravaille (el ce. meme 
pendant un enregistrement). 

Si les adresses du type CALL & 7040. CALL & 1 1 E2 ne donnaient 
rien sur voire PC (memoire morte differente), essayez des adresses 
voisines, ou plus simplement, supprimez les lignes concemees. De 
plus CALL & 11E2 ne donne rien si I'inlerface cassette esl bran- 
ches. 



KftEJI A6EH9A Au"£UR: 
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BEH 3 0l'O PC 123: 
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*3* BEEP II INPUT *- 


IOT 




■ *u 7 (0/M)'iL*l If 




_i«-n- THEM 120 


ne 


UAIT 88: PRInT 'EKT9 




EE..1*: PR!*' 'LECTU 




RE. .2*: PR!*T *JTSE 




A JOUR..!*: ?o;wr -E 




nREGISTRENE*" SUR *7 
?RIMT 'SfllSIE =IC**E 


ill 




9 <7..3*: ?<>:■*' 'FIN 



:70:GOS'J3 390: INPUT *S(t 
"i (99 <»0UR TOUT) ?« 
,C»: IF C*<>*99* 
THEN 286 

:38:"0f 1*9 TO :8: IF 3t 



<:>» 



19 



129: WAIT 38: 00SU3 190: 
E*e>UT *CH0:X ^(liT.S 

.<.5 ou w*»ai on ft 

GOTO IJ8. 179. 238. 168 

.488.121 
IZllcW 
IMlFOa >8 '0 t«i if :» 

(;>"** 'ken *.«8 

135:h£X- !: PSIlO " ; '. 

3t P.flCE '! PRImT 'F 

fil^E UNE *:se ft JOUR 

•: GOTO 128 
l«e:GQSU3 J98: I»RUT 'DU 

TE."ESSA0E ?*»»«[) 
:50:GOSUB J80 
IMsGOSUB 398: [HP 

«)i"4) ?*.3»: 1= 31 = 

"H* "«EH :48 
!45:G0T0 128 



185:G0S'JB 308 
:98:HEXT I: P81MT "PLUS 
DE 'IS'iME': GOTO 12 



280:"O!? >0 TO 10! I p 
_ErTf Oi(;),6>-C« 
Hi£M 228 

218:M£XT II -BIT -.88: 
PRINT -RIEN POUR 'II 
%'.%■>: «:0f (Cl>3t2) 
• *i RIGHT* (C«.2>: 
GOTO '.78 

229sG0SUB J06: GO'O 128 

230-.GOSUB 398: IMPIJT 

T£ ? (9999: TOUT VIDi 
9,-.C*:C*= RIGHT! (I 



H 



IF Ci-*99' 

•-Ei. 288 
260!FOR :«0 TO 10:El= 
R:GhT« < Le^Tt (fjf(I 
>i6).4): IF V6l =«<■ 
VOL C« l£T Did)-" 
270:nEX' :i GOTO 128 
288:?0S ;«8 TO lfl:DS(I>- 

•■: -.e:< T ;: go-o '.20 

S8B:U6I- 188:BI- LEFTi ( 
Q1C).6>: GOSUB 
LEFT! (Bf>2>: GOSUB 
J«0i PRINT -POUR L£ 
*int(8): rial cb«.j. 
2)»* 'l P:G"T« (B».2 



310: IF LEH D*(I)-6>24 

"HEN 530 
528:G0SUB 340: PRINT 

RIGHT! (Df(I>. LEN D 

f(I)-6>: RETURN 
330: GOSUB 348: PRINT 

RIGHTS (OKI). lEN D 

*<I>-6>: PRINT 

RIGHTt (DI(I)< LEN : 

5(I)-38): RETURM 
348SF0R Z«l TO 5: CAU t 

70401 NEXT Z: RETURN 
343:'QrH*(0) = , OI»flNCHE 

■1 RETURN 
346:'LU , HI(0)-*LUNIII •: 

RETURN 
347t*nP.*H*(8>«*?1ARDI ': 

RETURN 
343:*-E , H*<8)«*"ERCSEDI 

•t RfiTURM 
349:*JE'HI(0)--JEUDI 'I 

'E'iJ°S 
130:'VE-Hl(0).*VEHriRE3; 

-: OETIJRN 

33::-$fl*Hl(0)«-Sft'»E3: *: 

RETURN 
3i>8iP»;HT 'APRUYER SUR U 

*-E rOOCHE'l PRINT *P 

OUR COfNENCER *: 

PRIHT 'A ENREGIGTRER 

•I CAUL tllES 
S62!S»" XEYI 1 If G*-* 

' THEN 362 
364iPRIr-T * *: «;->T 'En 

REGISTREHENT't CALL 



i:PR!NT »«•) 

liBEEP H PRI"T 'FINI* 

: GOTO 128 
15 FOR T«l TO 5! CALL t 

11E2I N£XT Tl RETURN 
UPRINT 'APPUVER SUR U 

NE TOUCHE': PRINT *p 

OUR COWNEHCER A lIRE 

': CALL tllEO 
iS«- :«KEY* : IF S*«* 

* THEN 401 
"IMINT ' ': PRINT 'LI 

CTURE'i CALL tllEfl 
isINPj' JD«(»): BEEP 1 

: PRINT 'FINI*: GOTO 

120 




Dans le N* 48, nous avons omis de (aire ligurer dans la lisle des 
gagnants des Irvres de la Regie a C3lcul. J. P. CUNNIET pour son 
programme BOWLING sur FX 702 P 



ET ENCORE DES GAGNANTS! 




Liste des 20 gagnants 

de la calculatrice Hebdogiciel 



. CHETOUANl Farid 
31 100 TOULOUSE 

• POUSSET Alban 

52400 BOURBONNE Les BAINS 
. MAUGUEN Ronan 
29200 BREST 

• GENSER Laurent 
KNUTANGE-NILVANGE 

• GUILLARD Anne 
75015 PARIS 

. ARMAND Xavier 

02500 HIRSON 
. JACQUOT Eric 

25480 MISEREY 

• LEPONT LUC 
92800 PUTEAUX 

. PRAICHEUX Samuel 

77176 SAV1GNY LE TEMPLE 
■ DENNIEL J.Claude 

44300 NANTES 



- MORUZZI Yvan 
33122 CEYRAT 

• TIBI Laurent 
94220 CHARENTON 

• TERTRE Yannick 

35510 CESSON SEVIGNE 

• BUGARA Jerome 
88100 ST DIE 

• PAP1R Lisa 

93 NEUILLY/MARNE 

• PHARASYN Noel 
59126 L1NSELLES 

• LEBRUN Christophe 

62470 CALONNE RICOUART 

• PONNELLE Thibaul 
21200 BEAUNE 

- PATOIS Paul Sebastien 
57430 SARRALBE 



Liste des 20 gagnants 
du logiciel de leur choix. 



• MICHET Christopho 
30 AIGUES VIVES 

. PADOVANO Robert 

13006 MARSEILLE 
. ZOUA1N Charles 

13012 MARSEILLE 
. COEFFIER Pascal 

52290 ECLA1RON 
. CRIMETZ Christopho 

77 BAILLY LARROIS 
. BERGMANN Vincent 

83 SIX FOURS LES PLAGES 
► LOPEZ Juan 

91140LESULIS 

• GILLET Jacques 
18000 BOURGES 

. GRANGER Rogor 

42100 ST ETIENNE 
. MARTURANA Antonio 

BELGIQUE 



. SEIDL Enc 
54000 NANCY 

• JESTIN Erwan 

29 LE RELECQ KERHUON 

• LACQUEMENT Xavier 
59310 ORCHIES 

. DEROCH Daniel 

62160 GRENAY 
. COURNEIL Laurent 

31100 TOULOUSE 
. TAYSSE Stephane 

93270 SEVRAN 
■ DESCOUBES Pierre 

47 STE LIVRADE/LOT 
. AVEZOU Bruno 

94300 VINCENNES 

• MAYEUR lauront 
62420 BILLY MONTIGNY 

• TRILAIRE Yolande 
42220 BOURG AHGENTAL 



-nouveau- 



DEMANDEZ LE PROGRAMME 

Ache tez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selecttonne pour vows les meilleurs logiciels actuellement dlsponibles en France. Nous ne 
pretentions pas que cette llste est complete et definitive el II est evident que nous y rajouterons regutie- 
rement des programmes. Pourtant. vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation etqulse vendent surtout grace a la publiclte etauxconseils des vendeurs quint peu- 
vent pas connaitre tous les logiciels disponlbles. Nous avons classe a part nos propres produits : les 
Hebdogiclel Software. 

Les prlx sont. nous I'esperons, les mcilleurs du marche et les abonnes - anciens ou nouveaux - benetl- 
cltnt en plus d'une remise de JO ^=. Si vous etes nombreux a nous sulvre dans cette experience nous 
pourrons rapidement arriver afaire baisser les tar lis des lournlsseurs pour atteindre I'objectif que nous 
.'- nous sommes llxe: ramener les prlx a une plus juste valeur '. 

Les classements sont tails en tonctlon de I'interet du programme et ne tiennent pas compte des prU, 
■ ■- c'estavous dejuger de I'opportunite de la depense.N'oubllezquand memepas queslle rapport quali- 

te/prix est mauvais. le loglclel ne peut tigurer dans cette page ! 
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ASTERIX 



ASTERIX le gaulois a fail un pari avec C6sar. II doit 
visiter 8 villes et en ramener une de leurs specialues 
culinaires. Mais bien sur. Cesar fait tout pour I'empe- 
cher de gagner son pari. 

Frederic LOUCHET 

Mode d'emplot: Utiiiser la manette I, ALPHA LOCK doit elre releve 
el TlR sen A lancer les menhirs. 




■ 

6 CALL ' 

7 (WSMB 1*2 

B CALL COLQft<lO.«,2> 

9 CALL COLORE. 16, D 

10 CALL COLOR!?, 14.2) 
I t FOR ON- II TO 16 

IT CALL COLORtGH, 12.21 
13 NEXT GH 
1* GOSUS 197 

TASUQX'LE GAULOIS* 

16 PRINT TA8(18> l-C. 1984 F*L" 

17 FOR VT-3 TO 8 

18 CALL COLOR(VT,4.2> 

19 ne*t VT 

20 CALL KEV(O.LL.NN) 

21 IF NN-O tuen ZO 

CLEAR 
' :::::"LA TOUCME ALPHA LOCK DOT 

23 PRINT "ETRE LEVEE CAR IL FAUT "1! 

26 PRINT "UTILISER LA NANETTE 1 " : : : 

27 INPUT "APPUVEZ SUR ENTER FOUR JOUER"; 
MM 

28 CALL CLEAR 

CHAR < 133, "FFFFFFOO00FFFFFF-) 
3] CALL CHAR<B7. "1 139FF393929294D") 

S3 CALL CHARClOe, -3C7E7E7E3C1B18IB") 
:>« CALL CMAR(9I, "OOOO7CFFFF7CO0OO" > 
*3 CALL CHAR (109, -925*381 1 92343810") 
34 CALL eXAR<92,~0904041FFB901010") 

37 CALL CHAR1134,"387C7C381OlOlO10"> 

38 CALL CHAR(137."FECB282B2BOOO04C"> 

39 CALL CWAR(134, "4444994499666499") 

40 CALL CHARII39, "OOOQOOFFFFFFFFFF" > 

41 CALL CMAR<58, -0O99FFFF99000OOO-) 

42 CALL CHARI158.-0e081C7CSC7ClClC") 

43 CALL CMAR(39,-4242£7E7E7E7E7£7-) 

44 CALL CHAR(60.-FF8IfiFClDDD3B9FF") 

43 CALL CHAR(6l.-O0OOI83C7EFFFFFF"> 

44 CALL COLORU4.7, 1) 
47 CALL COLOR(S,9,1> 
43 CALL CCC0R(7,8, II 

49 CALL COL0RU0.3. I) 

50 CALL COLORC4,|4,l> 

51 RESTORE 104 



52 



' Z ■ - 



53 SC-O 

54 G*0 
SB AS-2 

: 7 CALL CLEAR 

58 READ OQO, WWW.EEE.RRR 

59 IF BOQ-100O THEN 276 

60 IF UMM'O THEN 66 
'jl IF OGGXO THEN 64 

42 CALL MCHARfQQQ. WWW.EEE.RRR) 

63 SOTO 38 

64 CALL VCHARf-OQC, WWW.EEE.RRft> 

65 SOTO 58 

66 CALL HCHAR (1, I, 133.32) 

67 CALL VCHARU.I, 133, 11) 
6.3 CALL VCHAR(13, 1, 155. 1 1) 

69 CALL VCHARd, 32, 153,24) 

70 CALL HCHAR<24. 1, 133,31 ' 

71 CALL HCHAR<I,3,91,XXZ> 

72 0-3 

73 H-0 
■4 V-12 

73 CALL HCHAR(V,0-1 ,3Z) 

76 V-V-H/4 

77 CALL HCHAR(V,0,92> 
73 CALL JOVS1 f l.F.H, 
79 CALL KEY(1,X1,Y11 
BO IF YIOO THEN 212 

B i o-o* i 

■.'- Ci-li. r, ■.<■:.--■>■, Hra.r,. i! 
B3 IF Z-32 THEN 73 
B4 CALL HCHAR(V,0-1.32J 
HEN 245 
: - I TO 7 
K7 CALL HCHARfV-H/4.0. 136] 

UND< ZO, *.. I l 
a 1 "' CALL HCHAR1V-H/4,0,32) 
''■■ rlE/I I 

(M ■ CLEM 

92 A5-AS-1 

93 XKI-2 

''4 IF AS' THEN r,7 

BUB 237 
96 CALL SCfiEEN(2) 

■ tw mi'voua nvcz perdu -:: ::! 

98 PRINT -VOTRE SCORE EST ■|SCll 

99 PRINT "V0US AVEZ EU"I01 "SPECIALITES" 

100 PRINT "VOUS PERBEZ VOTRE PARI, CAR":! 

101 PRINT "VOUS N AVEZ PAS EU TOUTES") : 
LES SPECIALITES OES VILLES ":: 

IOa PRINT llli-VOUUEI VOUS REJOUER "ti 
103 INPUT "ENTREZ O N "iPP» 



104 IF SEGKPP1, 1, l)»"a" THEN I ELSE 27,Z 

105 REM TABLEAUX 

106 DATA 2.2,108,191,8,4.108.21,8,28,154 
,4,9,6, 154, 14,9. 30, 109,2, 10, I I , 109,3, 13, 
1 1, 109,5 

107 DATA 16, 6, 154, 14, 16,30,109,2, 17,4, 10 
8,21, 17, 2B, 154,4, IB, 2, lOB, 191 , IO. I0.B7, 1 
,9,29,87, 1 

108 DATA -11,21,87,4,10,22.87,5,15,10.87 
, I, 16,29,87. 1, 12,26, 138, 1,-1,-1,0,0 

109 DATA 2,2,108,300,12,8,109,1,12,12,15 
4, 1 , 12, 14, I09, 1, 12. 17, 1 OB, 1, 12,27, 109, 1 

110 DATA 14,15.109,6,15,15,109,6,17,2,10 
9, 3. IB, 2, I OB, 3, 17, 12, 154, 10, 18, 12. 154, 10 
, 18,30, 134,2 

111 DATA 19,2,134,94,22,2,108,62,12,25,8 
7.2, 17, 10,87.2,-17, 2B, 87, 2, 16, I5.B7.5, 17 
.23, 159, I ,-1.-1,0,0 

112 DATA 2.2,108,138,7,2,134,9,8,2,154,9 
,7,20, 108, 12,8.20, 154, 12,9,2, 109,7, 10,2, 
109,3 

113 DATA I 1.2. 109,3,9.22, 134, 10,10,24. 15 
4,8, 11,24, 154, B, 12,26, 109,6, 13,26,109,6, 
14.28, 109,4 

114 DATA IS, 28, 109,4, 16,30, 134,2, 17,30, 1 
08,2,9.13,108,3,10, 13, 108,3,11.11.154.9, 
12,9,134,13 

115 DATA 13,7,134,16,14,2,108,23,15.2,10 
8,23, 16,2, 108,25. 17,2, IOB, 25. IB, 2, 108,25 
, 19,2, 108,25 

116 DATA 20,2,154.126,10,11,87.1,-7,19,8 
7,2,-12,23,87, 1,-18,31,87,2,8, IB, 58, 1,-1 

. l,0,i 

117 DATA 2,26,109,6,3,15.108,6,4,14,134. 
9,5, 12. 154, 20, 6, 11, 134,21,7, 9, 134,23,8,9 
, 154,23 

] IB DATA -9,8,108,8,9.9,134,23.10,9,154, 
23, 1 1,9, 154,23, 12, 9, 108,23, 13,9, 108,23,2 
. 18,67,5 

119 DATA 14,9,154,23,15,9,154,23,16,9,15 
4.23. 17.9. 154.27., 18.9, 154,23, 19, 11, 108,2 
1,20, 1 1, I OS. 21 

120 DATA 21,13,109,10,22,13.109,10,23,29 
, 108,3,-2,24,87,3,23,22,87,6,-6, 10.B7, 1, 
3,31, 158, 1,-1,-1,0,0 

121 DATA 2,2,108,95,5,2,108,14,6,2,108,1 
4, 7, 2, 1 54, 14. 8, 2, 1 54, 14. 9, 2. 1S4, 14, 10. 2. 
109, 12, I 1,2, I09.ll 

122 DATA 4.21,108,6,-6,27,154,3,-9,22,15 
4,2, 10,23, 109,5, 12,22, 109, 10, 13,22, 109, 1 
O, 14,22, 108, IO 

123 DATA 15,22,108,10.16.22.108,10.17.24 
,154,8,18,24,134,2,13,2. 154,12, 14,2,134. 
15, 15,2, 154, 15 

124 DATA 16,2,108,17,17.2,108,17,18,2,10 
B. 19. 19,2. 108, 19,20,2, 109, 127,7,21,87,6, 
-IO, 17,87,4 

125 DATA -IB. 28, 87, 2. IB. 31, 59, 1,-1,-1.0, 
O 

126 DATA 2,2,108,127,4,9,108.23.7.9,108. 
23,8, 11 , 154,21,9,11, 154,21, 10, 13, 154, 19, 
I I, I3.I09, 19 

127 DATA 14,13,109,13,15,13,108.13,14,29 
, 109,3, 15,29, 108, 3, 14, 1 1, 154, 15, 17. 11, 15 
4, 15,18,9. 154, 19 

12B DATA 19,9,109,23,2.20.108,127,12,6,8 
7, 2, -10, 12, 87,3,-1 4,12,67, 2, 13. 14, 109,2, 
13,20,87, I 

129 DATA 12,25,87,6,12,29,87.3,13,29.87, 
3,-16.31,87,3, 12,27,60, 1,-1,-1,0,0 

130 DATA 2.2. IOB, 159,7,2, 100,23,8,2, 108, 
25.9,2, 1 08,25, IO, 2, 108,25, 11,2, 108,23, 12 
.5. 154.20, 13,7, 134, 17 

131 DATA 14,9,154,13,13,11,134.10,16,13, 
109,7, 16,2, 109,4, 17,2. 109,5. 16,2, 109,6, 1 
9,2, IOB, 7, 20, 2, IOB, 10 

132 DATA 21,2,134,93,11,30,109,2,13,27,1 
08,3, 14,27,108,3,15,26, 108,4, 14.23, IOB, 7 
, 17,24, 154. B 

133 DATA 18,24,134,8,19,24.154,8,20,22.1 
54, 10.-13,6,87,4,-15, 10,87,3, -18, 16.07.3 
,-18, 17.67,3 

134 DATA -8.31,87,2,17.14,87.1,20,18,61, 
1,-1,-1,0,0 

133 DATA 2,2,108,319.16.2,154,255,14.2,1 
09. 17, 15,2. 109, 17, 13, 17, B7, 5, t2,23,B7,4, 
13,30,61, 1,-1,-1,0,0 

136 DATA 1000,32,0,0 

137 REM riTRJB 

138 DATA 3,2,106,4,6,3,106,2,3,7,106,4,6 
,7, 106,4,9,7, I 04. 4, 3, 12, 104,4,3, IB, 104,3 
,6, 18, 104,2 

1J9 DATA 9,18,104,3,3.23.104,3,4,23,104, 
3,7,23, 104, 1,8.24, 104, 1,9,23, 104, 1,3,29, 
104, 1,3,32, 104, t 

140 DATA 5,30,106,2.7.30,106,2,9,29,106, 
1,9.32, 1 06, 1,4,29, 1 10, 1,4,30, 1 11,1,4,31, 
110, 1,4,32, 111,1 

141 DATA 6,30, 1 10, 1,4,31, t II, 1,8.29, liO, 
1,8,30, II 1, 1,8,31, 110. 1,8, 32, 11 1, 1 

142 RESTORE 138 

143 CALL CHAR<104,"FFFFFFFFTFFFFFFF-> 



Rll 



144 CALL CHARM 10 

145 CALL CHARMI 1 

146 FOR NN1-I TO SO 

147 READ 01 ,W1,E1,RI 
14B CALL HCHARIOl.Wl.E 

149 NEXT NN1 

150 RESTORE 156 

151 FOR HNl-I TO 10 

152 READ D2,W2,E2,R2 

153 CALL VCHAR<Q2,W2,E2,R2; 

154 NEXT MM1 

155 GOTO 172 

154 DATA 4.2,104.6.4,5,106, 
, 10,106,2,4, 13, 110,6,4.14, : 



OFOFOFOFOFOFOFOF ■ 



,3, 17, 104 



157 DATA 3,22,104,7,4,25,106,2,3.27,106, 
7 

158 REM DEFINITION DES CARACTERES 
DE ASTERIX 

159 DATA 40,0000000000010307, 41, 00OI071F 
7FFFFFFF, 102. 60EOEOE0C0CO8080, 43,0000000 
000000038, 103.0F1F3FFFFF7F7F3F 

160 DATA 45.FFFEFCFCF9F1E1EO, lOl.OOOOOOC 
OEOEOEOCO, 112,0000000000000109,47,000000 
03O307070F, 96, 3EFFFFFFFFFFFFF7 

161 DATA 97,0O8OC0EOFOF8FCFE,98, 1FOF0703 
Ol, 113,E0EFE8DOD0A0404O, 114.FB0601, 115,0 
A0ABA4 923 1 50F 1 F 

162 DATA 1 14, 1FIF3F7F7F3E9CC8, 99, E3E1C0B 
O, IOO.FFFFFF7F3F1F0F07. 1I7.4O4O4O404O4O4 
021,1 I8.0O0OO01F3D78F2F2 

163 DATA 119, 1F3FFFFFFFFE7C7C. 120.E0F0F8 
FC7E 3F9F9£,I2I,0OO0O0OOO03E7FFF, 122,0000 
0OOOO0OO8OC0 

164 DATA 123,0000010303030303, 124, 23D7FF 
FFFFDFEFF7, I23.F0FFFFFFFFFFFFFF, 126, 7CFF 
FFFFFFFFFFFE 

165 DATA 127, 1DF8F7EFDFBF7FFF, 128.FFFFFF 
FFFFFFFFFF, 129, EOFOF8FBFBF8F8FO, 130,01 , I 
31.F7FF7D3BIE0107 

144 DATA I32,FFFEF9E79F7FFFFE,133,FD08F7 
EFEF9FBF40, 134, FFFFFFF3F3FFFF7F, 13S.FFFF 
FFFCFAE7DFBF 

167 DATA 136,E0C08000OOOO80C0, 137.070F1F 
3F7EF90301, 1 38.FEF9E69E70FDFBFB, I39.A464 
FFFFFFFF2793 

168 DATA 140.DEDDEEEFDFDFBFBF, I4I.7FFF7F 
9FE7F9FCF8, 142, F0FCFFFFFFFF7F, 143,010101 
, 144,FDFDFDFDFD7D8DDD 

169 DATA I43.CBC9E0E0FFFFFFFF, 146,Df OFEF 
EFF7F7LFEF, 1 47,FBFOFuEOCOC08080, 148.DEEF 
EFF7F7F6FDFE 

170 DATA 149,FF73B3COFFFFFFFF. I50.DFBF7F 
FFFEFEFCF8, 1S1.80, 1 04 , OOOOOOOOOOO 1 07 1 F , 1 
OS, 000007 1F7FFFFFFF 

171 DATA 106.FFFFFFFFFFFFFFFF.1O7.COCOCO 
EOEOF OF OFB. 132,000000008080 

172 REM 

173 RESTORE 159 

174 FOR DEFCHA-I TO 58 

175 READ DOD.HH* 

174 CALL CHARIDDD.HH*) 

177 FOR GH»11 TO 14 

178 CALL COLORtGH, 12.2) 

179 NEXT GH 

180 NEXT DEFCHA 

181 GOTO 189 

182 DATA 14,4.40,14,5,41,14,4,102,14,9,4 
3, 15,4, 103,15,5,45, 1 3, 4, 101 , 13, 7, 1 12, 13, 
8,47 

183 DATA 15.9,94,13,10,97,14,4,98,16,5,1 
13, 16,6, I 14, 16,7, 1 15, 16.8, 116, 14,9,99, 16 
, IO, 100 

184 DATA 17,5,117,17,6,118,17,7,119,17,8 
,120, 17,9, 121, 17, 10, 122, 18,4, 123, 18,3, 12 
4, 18,4, 125, 18,7,126 

105 DATA 18,8, 127, IB, 9, 128, IB, 10, 129. 19, 

4, 130, 19,3. 131, 19.6, 132, 19,7, 133, 19,8, 13 

4, 19,9, 133 

184 DATA 19,10,134,20,5,137,20,6,138,20, 

7, 139,20,8, 140.20,9, 141,20, 10, 147,20. II, 

152,21,5, 143,21,6, 144 

187 DATA 21,7,145,21,8,144,21,9,147,22,6 

, 148,22.7, 149,22,8, 130,22,9,151.23,4,104 

,23,3, 103 

1B8 DATA 23,6,106,23,7,106,23,8,107 

1B9 RESTORE 182 

190 CALL COLORI10,9,2> 

191 FOR TYUI-1 TO 39 
19? READ FFF.BBB.HMM 

193 CALL HCHAR(FFF,BB8,MMM> 

194 NEXT TVUI 

195 RETURN 

19/, REM MUSIOUE DEBUT 

197 CALL SDUN0(230, 131,3,523, 1) 

198 CALL SOUND (250, 175,3,498, 1) 

199 LAI l. BOUND (230, 194,3,784. 1) 

200 CALL S0UND(2S0,220,3,800, 1) 

201 CALL SOUNDI230. 220,3,880, II 

202 CALL SOUND < 230, 194,3,704, I) 

203 CALL SOUND<230, 194,3,784,11 

204 CALL SOUNDI750. 175,3,498, I) 



Tl-99 4/A 

BASIC 
SIMPLE 



zos 


CM l 


SOUND 


230.220.3 


880,1) 


706 


CM :. 


SOUND 


2SO, 196.3 


7B4.I) 




CM i. 


SOUND 


250. 196,3 


784 , 1 ) 


206 


CALL 


SOUND 


250,147,3 


587,1) 


2OT 


CM i- 


SOUND 


550,163,3 




210 


CMX 


SOUND 


IO, IOOO, 7 




211 


RETURN 






212 


REM 


LANCEMENT MENH 


R 


213 


IF X 


<Z<=0 THEN 81 




214 


XXZ- 








215 


FOR FTJ-0 TO 30 




216 


CALL 


SOUND 


1,440.01 




217 


CM L 


GCHAR 


V.F'U.1.7) 




21B 


CALL 


HCHAR 


V,PU»1 ,91 




219 


IF FU-0 THEN 223 




220 


CALL 


HCHAR 


V.PU.32) 




221 


IF Z-87 THEN 238 




60) 


(Z-41>=-1 THEN 229 


5 ) <Z 


223 


IF Z<>32 THEN 226 




224 


NEXT 


PU 






223 


SOTO 


81 






226 


CALL 


SOUND 


3O.-7.0) 




227 


CALL 


HCHAR 


V, PU* 1 , 32 




22fi 


GOTO 


81 






229 


CALL 


SOUND 


10,220, 1) 




230 


CM I 


SOUND 


10,330, 1> 




231 


CALL 


SOUND 


10,440, 1) 




232 


CALL 


SOUND 


10,330, 1) 




233 


CALL 


SOUND 


IO, 660, 1) 




234 


6-B+ 








233 


SC-SCHOO 






236 


CALL 


HCHAR 






237 


GO 1 ( 1 


81 






.■ -.J] 


CAI 1 


SOUND 


100,-3,0) 




239 


xxz- 


XZ»2 








SC-SC»10 






241 


CALL 


HCHAR 


V.FU. 1. 157 




242 


CALL 


SOUND 


100,-3,0) 




243 


CALL 


HCHAR 


7,FU. 1.32: 




244 


GOTO 


81 






245 


REN 


REUSS 


I UN TABLEAU 


246 


SC-SC 


♦ lOOO 






247 


-OR DF1-8 TO 1 STEP - 




248 


CALL 


SOUND 1 


-ISO, -DK1. 


0) 


249 


«XT 


OF! 






:-,•■ 


CALL 


SCREE* 


(2) 




251 


SOTO 


37 






233 


fl .-i 


■IN DL 


PROG. 






:all 


CLEAR 






234 


CALL 


SOUND! 


200,660,0) 




253 


BIN 


: :: : : 


llt'FIN DU PROGRAMME -i: 



237 REM MUSIOUE FIN 

238 CALL SOUNDI230, 247,5,988, 11 

259 CALL S0UND(230, 247, 3,988, 1) 

260 CALL S0UND1230, 720,3,880, I) 

261 CALL S0UND(25O, 220,3,880. 1) 
26? CALL SOUND <730, 196,3,784, 1) 

263 CALL SOUND(2SO,194,3,7B4, 1) 

264 CALL 5OUND(250,220.5,BDO, 1) 

265 CALL S0UND(250,247,3,988, 1) 
264 CALL S0UND(250, 131,3,373, 11 
767 CALL S0UND<230, 747, 3,988, I) 
248 CAt 1 S0UND(230, 270,3. B80, 1) 

269 CALL 50UNDI230, 196,3,784, 1) 

270 CALL S0UND(250, 220,3,880, I I 

271 CALL SOUN0<230,22O.5,080, 1) 

272 CALL S0UND125O, 220,3,880, I) 

273 CALL S0UND(5O0,247,5,9B8, 1> 

274 CALL BOUND (10, IOOO, 7) 
273 RETURN 

276 REM GA8NE 

277 CALL CLEAR 

278 PRINT -. is "VOUS AVE? REUSSIt LE TOUR 
DL UAULE - j t 

279 GOSUB 237 
780 FOR 1-7 TO 16 
2B1 CALL SCREEN<I> 

2B2 CALL SOUND (130, 200" 1. 1>. 1 ) 

283 NEXT I 

284 CAl.L SCRFENI2) 

283 PRINT -VOUS AVEZ l»N SCORE DE "tSCit 
7Q4 PRINT "VOUS AVEZ EU "IUi" BPECIAL1TE 

287 IF G<8 THEN 289 ELSE 788 

288 IF li*8 THEN 292 

289 PRINI "VOU3 N AVEZ PAS EU TtHITES L 
ES SPECIALITES ": I 

290 PRINT -VOUS PERDE Z DONC VOTRE PARI"! 

291 GOTO 294 

792 PRINT "VOUS AVEZ ELJ TOUTES LES 3 
PECIAL1TEB "It 

793 PRINT -VOUS GAONEZ DONC VOTRE PARI") 



Suite de la page 4 THE GAMBLER 



~ CASINO 

mi te 

1 HfilT 39:Lt= n 6fi u 
HE l !'- , :0$="PcRDU 
!! n :S=23:SrjT0 5 
2 

2 F=8:V=0:PRT »jq 
UEZ-V0U3: Q/N ? 

3 IF KEy=X THEN 

55 

4 If KEY*T THEH 

3 

5 FRT "fi mi JOU 
EZ-VOUS :","(!) 



6ME (2)6fiCCn 
fift" 

6 IF KEy= n 2" THEN 

31 

7 IF KEY*"1* THEM 

& 

8 PfiT \H mil V 
OtIS ATTEM":G=I 
HT (Rf)Nt*9»l:& 
SB 57 

lv IHP "QUELLE CH8 
HCE n ,J:IF J="F 
LEIH" THEH 16 

11 IF t="PfiSSE" TH 
EH 29 



12 if t-- n mmv T 

HEH24 

13 IF $="PnIR" THE 
H 26 

14 IF t="mii" I 
HEN 28 

15 GOTO IS 

16 1NP "HUMERO (1- 
1) ",E=E=fieS 1H 
IE: IF E>9 THEM 

16 
1? IF E=6;PRT If;" 

:";&:Z=Z+H»8:G0 

10 2 
18 6010 S 



28 IF 6»6 THEH 22 

21 SOTO S 

22 PRT L);":";6:2= 
Z««2:60IO 2 

23 Z=2-K:PRT 0!;": 
";6:6SB «:60IO 

2 

24 IF 6i4 THEH 22 

25 SOTO S 

26 IF 6=2>INT (fi/2 
) THEH 22 

27 6010 S 

28 IF 6>2«IHT (6'2 
) THEN 22 

38 60TO S 



31 PRT "LE BHCCfiRfi 

COHHEHCE!":GSB 
57 

32 FOR 1=1 TO 2:GS 
B 6i:6S8 48:N£X 
T I 

33 IF F>9lF=INT (F 
/IB) 

34 6S8 68:PRT "RUT 
RE CRRTE : 0/N 

35 IF K£Y="H" THEN 

38 

36 IF KE7>"0" TNEH 

35 



37 6S8 61:6SB48:I 
F T>9;T=1HT (1/ 
IB) 

38 6SB6B:PRT "... 

m BRNQUIER ! ! 

39 FOR J=l TO 2:6S 
B 61:6SB 58:HEX 
T J 

48 IF V>9iV=INT (V 
/IB) 

42 IF V^5;PRI "IL 
REPRENO 1 MRTE 
":6SB 61:6SB 58 
■ IF V)9,-V=1NT ( 



V/1M 

43 6SB51:IF V>F;P 
RT "IL fl ";Lf:Z 
=Z-(|:6S8 46:603 
02 

44 IF V=F;P81 "E6fl 
LITE !! DOHHAbE 

!":60T0 2 

45 PRT "VOUS AVEZ 
";L«:Z=Z»H«2:60 
TO 2 

46 IF Zi8;PRT "VOU 

ETES RUIHE !!" 
:6SB 12 

47 RET 



48 PRT "VOUS AVEZ 
OH":C:F=F»C:RET 

58 PRT "IL A UH-;C 
:V=V»C:RET 

51 PRT "SON TOTAL 
:"1V:RET 

52 IHP "HUMERO 0,0 
RDRE",0:IFO=H 

THEH 56 

53 PRT "CEST FAUX 

!!!!!", "VOUS N 
E LE SAVEZ PAS" 

54 PRT "TAHT PIS P 
OUR VOUS !":6SB 

42:6010 56 
Sun ptgt 13 



_ES ENVAHISSEURS hector hr 



Alors la, ca commence a aller vraiment mal! Les Cyclo- 
pes se son( mis dans la tete dattaquer la Terre! Et 
croyez-moi, meme avec un seul oetl, rlssavenl viser. 
Alors embarquez-vous a bord de voire Hector, liberez 
la pression, appuyez sur RUN et venez a la rescousse 
de la federation gaiactique! 
Mode d'emploi inclus dans le programme. 

Regis CARLIER 




. 



1071 plot*3,ZfO, J. -. 




l*tO (DWIMII) 














107* output •EMtrf.l VOS 






race a wotbc r*v*EiT£-,->7 


140.1 ■output -LORSOUE VOUS f 




fJUSSE!",ftO, 133, 1 I out put •! 


■ALRABET aVANCC'.&B, MO, llO 




utput -lopsoue VOUS TIREI 


IL BECuVE-,--.' 3 ^.! 




1073 output ■TIW POUR 




i output ehr* lion ,I,M, IiWjhi: 
1990 golo!9T0 












2000 i*Ti-3iotr»a™aoto2o2o 








1078 for l-lto,loutput A 




2O20 >'50-1270tft»nSO.30O.I*- 



■•.*3.:io.oi» , -i 



,au ■* cnirfi ■ 
,a:rm Mi)nttJ(ihon», 






im.u 29,134,9,39. SO.190,10,9, J0.14O.10.3 
5O.I0.3 ,t;,IM,5,B, 32,150.3,35. 39,130,3,17 
31.3.9. ft'. 130.3, 17, 7ft, ISO. 3, 13, St, 130,3,7. 

3, ft. 9*. 130,3,23 i>u*aua wvi 

15 data 91. 130,3.33. 98,140. 3. ft, 105,130.3,33 

JO. 13,3. US, 1*3.3,13, 110. ISO. 13,7 

.1*3.3.3. 213. ISP, I9,9l' iMni* 

13 data XMt.137,4,12, 200,130,5,3. 200,140,4, 

130.4.12. 193. 130.3. Z3 

lb datalB8, 150,5,33, 183,130,3,3, 170,130,3.2 

I? J.HI64.I»,10.3. 166,1*0,10,3. 166.130.10 

.ISO. 3. 23 

10 data 1**. 130, 13.3. 134.133,3,3, 1*4,1*0.13 

.1*3.3.3. t*4,l30.t3.3t ■ • 3 

19 O.I. 127,110,13,3, 137.133,3.3. 137, 1*0. IS 

*3.3.3. 127.130.13.3 i" » 1 

< 0»t*!OI.2OO.3.33.1Oft. ISO. 10,3,119,200,3.3; 

10.3.1 33,200, 13.3, 133. 193.3.3,113, 190, 13,3, 



ISO output vn I, 21 3, 
370 I <KEC-utl.*nnat 

leo outputREc,9a,i 

O.PIia*9**K.2ina.t. 
420 aounOl.828 



20*0 ' 
2073 cole 



--DCH MS OPTI 



riQH oss ruRs - 



4SO goto480-(COU<l,PM 
460 ololH20«U'H4,Ptlf 
470 outputefu-*<19«*P> . 
*ao go<ubl380 

490 gotoSO 

310 onjgoubb40,390 



330 MVAI-Othangotol 



1330 H50«L270than*ouod3,S 

1260 r a turn 

1270 ■ SOUCOUPE--- 



1330 gotoSOO 



il3-22«i 

.ndi.B28 



31 I 



KjtputchrU 1931 , I, 34,17 
— t»»t OU VAISSEAU A GAUCHE - 



1090 


pi otto. 22 3. 221. 31 ft. Mo lot 11.333.719.214.0 








output -cxjtsisse: l« opiicK-.«o.303,;iout»"t* 


VEC VOIRE riANE I T£ . - , 60. 190,3 


21 IO 


autpuflIRE' POUR LA VAVIOEiS- .- 


2130 


output -.'EU-.I IO, 120. 1 


2130 


output -scores-. 110.00.1 


a l . .. 


output -fteu.es-. 1)0,100,2 


2190 




_-:-■.-. 




2160 




2 1 19 


1 (J-Otr.aoK-20 


3130 


xl J-8lr.anV.V-20rk'-20ial»ai« J -* t *••■"■ - - 


J!01 


l«V<80thar.V-80 




i ■ • i ?n"anv-i20 




if v-SOthanR-lialaaifY-lOOthanP^trlwMr-IT^tr. 






2201 


oulpulcP"-*<|93».B3. V-.- 1.0. Output (Wl 11*3). «3. 


r-<lralOlM*E-OtKam*Ound3.910„(V.l20tN*r.<la»N 




otol93iaI*ai'Y-tOOtn»n<Ia%h7.30igoto30000ialu 




tn»ni:*.f.;.SA.goto60000 


1209 


















OutputCu-«<194l,v3,;2.0 


ZOi ■ i 






pi ot IO. 330. 330, IO, Ol ■ *•!■ 12-8 
















30O03 *ounaO. 409ft 


3OO03 calDr0.3.4.1ipao7 



3001C 



jrI-*2to**Mlr,at-7.!30. t -1. 1 23, Ima* t . ■ t 

ita3O.S0, S3. ftO. 33. 60,ftO. 60. ftO, 60,37,53,: 

itaa0.33,03,ft3.83,63.9o.b3.90,ftS.aS.6O.S 
r,60.83,33.90.33,93,35,90,33.92.ftO,92,b<. 
,93. 37. 93, 37. 92, 37, 9*. (.2. 9ft. ft* 
.1493,30,100,30, 100,50. 103,60, 103. AO.IO-: 
'.55,97,55. 103,33.105, 33, 107. 60, 107.53. 1 



ItS. 333. 325. 220. 



. . -. IlS.Oiplal 






11 datal20,33, 123,55,120,33. 123. ftS. 133 




O, 33. 133.63.135,63. 140. A3, 1*0,63,113,33 




0,1*0,33,1*3,63, 1*5,63, ISO, 63, ISO.bS, 14 








32 3. ta 133, 33, 130,33, 150,33. 155.63. 160 


93 


5.33.170.63,170.63, 173,63,167.60, 172,60 


1*9 


3,133,33, ieO,63, 100,63, 193,65,183,63. IB 




82, OO, 182. AO. 100,33 






|>J 


*3* rla.nl 90<n«r] flO 




33 output-CMA*»GCHEWT OU JEU" , 1 18, 23, 3 





otA,T,Oigoto3*0 

:0,0loutputHB,A-7,219,2lpa U 
l-530>ooaub40000 l I*—I4igoi 

f>Z27tr.anTl-330iplotA,V-6,<: 



lotA-20. 



IOtol3IO 

>lotW2-IO, 12, 18. 10.Oioutputcr.r4l 



15IO l<I>-wtr.ar.DloEM2-2,22.18.10.0ioutputer.r4ii<J4i, 

1330 1 ( l<:Mtr>anf>|ntM2-I0,I2, 18, 1 0, Ol out putc hr * U 941 , 
w2-8,/2.2tW-w3-8iraturn 

1330 1 »P07tha«igotol5*0 

1340 Hl>WhWDlolW**,Z2, lB.10.0loutputC"-4U94).t 
2*B,*2.2<Ml-W2*Btratur« 
- 1330 t*K-Wtnar.plot»«2-2,J2, 18, 10.0ioutputebr»< 1941, 



3002O «orl*lt»40ioutput-Al.ERTE ■ -.93. 130, Ji lonalOO. 

ftOloutPUt-ALEAtC •-. 93.120, Om»t 
3O0J0 Plot*B.200,133,10,;,output-l.A URRC CSt EN OR 

NOCR-.3-1.199.; 

30032 Output "LES ENVAMI6SEURS ATIOOUCNT-,40.170. I 
90034 output -VOUS ETE8 LE DERNIER RECOURS',10,130, 1 
lOutput-OE in FEDERATION INTtKGALACT lOUE" , 2S. I 33, 1 



■>Ilhi 



, 1 11 , 1 ' 



Mt(HJt 



63 "POUR LE MR* IL FAUT CHANCER LES AOREBSES OE OCP 
INiriOW DES CARBCTERES 
70 • DEPINITIOM OES FORMES^ 



93 d«t*13,2*0, 51,2*8,62, 12*, 62, 12*. 63, 232. 33, 23ft. *9 
.140,48. 12,1, 13B, 31. 3*B, ft3,352, 62, 134,63, 134,63,333, 
33, 19ft, 1.1 38. 63. 232. ft J. 232. 7. 32*. 6, 96. 6. 96. 7. 22*, 63, 
232.62,12* 



B*0 KCIOI 1-Otfn 



880 l(Bi20'U>210th«n£— E I *».pOJ. 04 . *-K - I Bigc 
IplotU,D2»ie*95**«IB, 18O-(B-Bl»20, 10.0lU-33»l 
i07--D7t»~««>01,BiM*-*ino»ub970igot0900 

B90 i(Bt3O«U''l3tn»nU«-(B130l«9ie--Ei»w.pDJ,C 
Bigo«ut>1160.plot8t20*U,02I10-93-l'-18,100,10,C 
1 (MapDI . Bl H*— 61 go»ulj920 

TOO 1<K — '?• (1-ti t !Mtr.*nif>!.»ii» , :> 



) plot 13. 16*3.0 

^tll3,I6*2)-l)th*n*ou^dl.a770 l platI3-2.i6>' 
■ubl660igo«,bl730i rat urn 

BletiO.S4,23O.a.0i<Mtputenr8U«4>,I(94, lipi 

-Vni-l Ia ulputVAt*l,;i3.19. HoutputVAI.315.1 
9*ub IftftOt gc^ubl 330lg 



K24trx 



it 13. II 



1 po.a3«3*e. 13ftipoka3*3*7.ft* 



i SC-OiSI -OrVAi.;, TA-li Tj-OtV3-0 

) l-20ie-8lU-8iD3-6ir— IB> l-1.01-Il07*llB-Bin3. 

•l*.II-33Oi»«JR-0>SO-3OOi(3-8iI*-5l*3-2Bir6-9OM 



'4.K. COOIGI.67 I 



16*3 l*GC>-l6a«TAtbar.r»tVn 



1673 H«3>Btban<3.t 
1677 UX3<01thaol3- 
lftOO HCI«l-Otbao« 
1683 gotOITSO 






1010 output -PERDU-, 103,207.3 






17*0 


KCOUIKS 
















1015 go«ubft50O0 












1017 wiun<IO.*09ft 












lOIB eolorO, 1.4,3 










a»gotol84 












ngotolB30 


1033 plots. 223, 223. 220. liplot9, 22*. 223 












223.221,216, It plot 11, 222, 219, 21*, 












1078 plotaO.313,63, 73, I 1 plot 93, 191. SO, 






1820 


HI>I0than«3-Jt3*8 


IO*0 output •RECORD", 93, 203, 2M 'REOOth 






1830 






putft£C,9ft, 167. SloutputH*. 101. 182,3 






18*0 






I030 output-VOtRE SCORE-, SO, 130, 2ioutp 




IO 


1830 


IfPclBtbi 


o«3-13*B 












113-13*16 


t ■■>,<■ , <",f_.SI>nECthanREC-SC'lilibutput-V 


UB fiVE/ KAIT 


1870 






LE R£COPD'.«0,63, Jl lla«r i J,BOip*u«»3.3 


gotolO70 




1880 


t«l<-<3than«3-13«l 



30037 out* 
30018 Mil 
30O39 (orl 
3,225,220,1 



ilot9,224,223,2IB,0iplol 



31C1 LEE ENNEnig. - 



».30,2 
ito30030 



,190,120,3 
111.333,319. 



mnuer-.ioo,i8,3m 



WJB AVE7-,33,ieO,lloutpu 
t-UN VAISQEAU SUPPLEMEMTniRE-.45. I ftO, Ji output "L0H9OU 
E L" INSCRIPTION "PRET f " , 30, I 30, ?.. out put -ftPPARA I T 
VOUS TIBCZ-,64,100,3loutput-P0UR CONTINUER LE JCU",3 



SOOftO output' 



33O0O I 
18ft32ipi 
1,213,14 



r pour continucr". loo. :■■:>. t m»ir 

_■• I- U. i.'-'i/? I ... ill 1644 31 •ouia'3, 1 



60007 colorO.5,4, 1 

60008 plotB.333,323,220. I iplot9, 334. 221, 218,Oipl 
0, 221, 221, 21 6, 1 >pl oil 1,222, 21 9, 2 1 4,0 

60009 »ound0.*096 

60010 paoJi print , print I P'lnt ■ print ' 

ftOolS panliprlnt" -|ihr*(19Jl i - , 

"» Pt*->prlnt 

6O020 (orl-20Otol96atap-l 

ftOOlO pan2iprint' - ienr*( 1 1 , ipanliprint" ., 
- I I-19»| -Pt a- 1 print 

60030 pan2lprmt- -( chr*l 1931 npanl>pr int" 
I Pt" 

6O060 output-TlREI POUR CONTINUCB-, 100,20,1 

60070 H'lral0l*0th*<ngoto600B0ialaagoto60070 

6O080 >Or 1-1 to210iacroll64rna-.t looto20«0 

6300O ' 

630IO 'voua aval (lartln 

63020 ■ 

63010 plot 10,229,210, IB7.0 

63040 'Wl-220tol64tap'4 

6303O n..ilti..(r.t,rtMv:i . 11", 1, ■,,>..,.-,-, -.,!-. l.l 

1109, |>|, 20,13, Olna-t 

ftSOftO outputchr*M911,l IO, 1,1 

ft3O70 output "LA TERRB EBT CNVAH1C-.60, 1B0.2 

6508O 'laahl.80 

63100 raturn 



Suite de la page 12 



THE GAMBLER 



55 PRT "VOUS 50RTE 
Z DEHORS..", 1 !, 
KIR EST FRHS.. 
."iLOHD 

56 PRI "VOUS POUVE 
Z REHTRERVDAH 
S LE CASINO..." 
:GOTO 2 

57 PRI "VOUS RVEZ" 
iZi"*":INP "VOI 
SEHISE",H:IF 
Z-H<8 THEM 57 

58 RET 

68 PRT "VOIRE TOTR 

L :"|F:RET 
61 C=INT (RflHlnS: 

REI 



TRIPOT 

LIST 18 

1 t="DIRECTIOH: " 
:ktniT 38:PRT "V 
OOS 8VEZ";Z;"t! 
":V$=" SORTEZ" 

2 IMP "VOIRE B6E" 
,fl:PRT "VOICI U 
H TRIPOT.. .","Y 

EHTREZ-VOUS:0/ 
H?" 

4 IF KEY="H" THEN 

35 

5 IF KEV«"0" THEN 

4 

6 PRT "VOUS KEHTR 



EZ DfiHSVUHE P 
IECESOHBRE..." 

7 PRT "VOUS EHTEH 
DEZ DESVSEHIS 
SEHEHTS.. .",»;" 
S/H?" 

8 IF KEY="S" 

33 

9 IF KEV'"N" 



THEN 



'THEN 
8 
18 PRT "UNE FILLE 
EST HVECVUH H 
OHHE..." 

11 PRT "L,BRRRCHE2 
-VOUS ftVL.HOH 
HE: O/H ?" 

12 IF KEY="N" THEN 
35 



13 IF KEY«"0" THEN 

12 

14 6S6 »6:IF 8>.7; 
PRI "L.HOHHE S, 
ENFUIT !!!":60T 
16 

15 PRT "L.HOHHE VO 
US TUE...VME 
C UH REVOLVER ! 
!":6S8 12 

16 PRT "Lfl FILLE S 
E RHflBILLEVLS 

SEDUISEZ-VOUS: 
",CSR 8; "O/H ?" 

17 IF KEY="K" THEN 

38 

18 IF KEY>T IHEH 

17 



28 PRT "ELLE REPOH 
D :":6S6 I6:IF 
IK. 5 IHEH 23 

21 PRT "QUEL CORPS 
! VIEHS..." 

22 PRT "VOUS PRSSE 
Z 2 HEURESV6R 
HHDI0SES!!":60T 
28 

23 PRT "OUELLE Llii 
DEUR Ill'iWi" 
!'","IHSISTEZ-V 
OUS: O'N ?" 

24 IF KEY="H" THEN 

35 

25 IF KEY<T THEH 

24 

26 6S8 KilF fe.7 



THEN 22 

27 PRT "ELLE VOUS 
TflILLHDE","...L 
E VENTRE !!!"I6 
SB I2:60T0 38 

28 Y=Y*l:F=IHT (»t 
1e3):PRT "ELLE 
VOUS PREND",F;" 
1!!":Z=Z-F:6S8 
45 

38 PRT ll"E/H V 

31 IF KEY="N" THEN 

44 

32 IF KEY<"E" THEH 

31 

33 aSB 16: IF 0).6; 
PRI "2 COULOIRS 
...":6OT0 35 



34 PRT "UHE CRISSE 

VOUS...VECRH 
SELE CRANE !!! 
":6SB 12 

35 PRT li"0/E ?" 

36 IF KEY="0" THEN 

44 

37 IF KEY>"E" THEH 

36 

38 6S8 #6:IF C< . 5 
THEN 41 

48 PRT "VOUS ETES 
DflHS UNEVRUEL 
LE..."IL0RD 

41 PRT "VOUS SORTE 
Z ET ON", "TYPE - 
VOUS RGRESSE ! ! £J 
"'•GSB 16 Cf 



42 IF OUlPRT "VO 
US L.HSSOHEZ EI 
"."VOUS ENFUYEZ 
...":LOBD 

43 C=INT <8<1e3):P 
RT "IL VOUS VOL 
E"lCl"t!":Z=Z-C 
:6SB 45 

44 PRT "VOUS EIES 
DEVHHTVUHE Sfl 
LLE DE CRRPS.." 
HOW 

45 IF ZiSlPRT "VOU 
SETES RUIHE !! 
":6SB 12 

78 RET . 

suivre 



URANIA II 



MZ700 



Ce jeu est un programme de batailte de I'espace. 

Francois BAUDOIN 

L« ioueur peut s'il le desire, avoir un apercu dotaille de la regie 
du jeu. en appuyant sur i . pendant la visualisation de la page 
de presentation le |eu peut se presenter sous deux lormes diffe- 
rwnts: 

1 -vatsseaux ennemis tous blancs. 

2 -vaisseaux ennemis de differentes couleurs. suivant lour posi- 
tion sur recran. 

II orffe de plus. 7 mveaux de difficult*, soil au total 14 varianles 
differentes. 



Pour le cholx du niveau de dlfficulte. tapez la louche CR apr6s la 
selection, 
ex: - 5CR 

Le slgne - 5 selectionne la presentation de jeu n° t. 
5 selectionne le niveau 5 

Le ioueur pourra s'il le desire, modifier les differents niveaux de 
difficulty en changeant la valeur des variables dans les diffe- 
rents so us -programmes d'inllialisalion debutant a la ligne 
(5660). 

Attention: pendant le jeu. il ne faut pas garder enfoncees les 
o mmiuamani . > nn ig louche "espace" pour le tlr; il 




Mia fot o-s io t srer 4 

3028 POKE 8.193 

5«3e rCXT a 

3040 FOR 0-1 IO U iJCf S 

MM POKE G,33 

5eee next o 

M7« FOR OMJ TO N STEP 3 

MSB POKE G, 135 

MM NCXT G 

5108 RETURN 

5110 REn»ilii*iH««t»«i»i 

5128 REN III** * t.«»« r* 

5130 R£n»«t»H..ll«lt«.»i 

5140 B-*-4B!0-C- 1 

5158 IF PtEKlBl-199 GOSUB 

5168 POKE 3, 121 

5170 0CSU6 1530 

5180 POKE 8.0 



3200 0OSU8 1530 

5210 IF PICK CB> 199 GOSUB 1 94B 

5220 IF PCtKCBJOB GOSuS 2028 

5230 IF B<53488 GOTO 1130 

52*0 POKE B.I21 

52M GOSUB 1530 

5268 GOTO 5100 

5270 OCT rw* 

3288 IF nwi-' ' GOSUB 51*8 

3230 RCTURn 

53ie REfi 'Est tkrt » tlr* 

5328 REP* »«**"" **"*»■""*«*»" 

5330 GET ft 

534B IF fW-'B" GOSUB I S70 

53M IF M--0- 30SU8 1620 

3360 IF A4-' ' GOSUB 8030 

5370 ? 

IOSUB 1570 
3408 IF M--B' GOSUB 1628 

■ 
5420 RETURN 
5430 R£r*****i« i**i«* «*imm*imti 

a.barttu.iMr". •rvwal 
54M SEP»«*i***l.±*i*** *"***»****«* 
3400 POKE J , I 33 
5470 FOR I>8 70 580 
3480 NEXT I 
5490 XR-J»40 
5M0 POKE XR.162 

OR 1.0 10 2000 
5520 NEXT ! 



SUITE 
DUN 50 



5538 

.-. .> 
■■ ■ .' 
■ '■ ,■ 

5530 

', P.P.I 

mi e 

5670 
5530 
5648 
5650 
5660 
5670 
5680 

5700 
5710 
5720 
5730 
5740 
5750 
3768 
5770 
5780 
5790 
5800 
5810 
5820 
5838 
5940 
5850 



5B7B 

5880 
5890 
5908 
5910 
5920 
5930 
5940 
5950 
5968 
5378 
5380 
5990 



1 54177 STEP 3 



fOR r,-5409B 

PUKE T.,207 

NEXT G 

FOR 1-0 TO 4000 

NEXT I 

RETURN 

■ 'M.lii I I . t. . •>< I .H<> 

HEP TIRS ENNEHIS 
REN** •tktttltli** •*•*•** 

XX-B 

IF Gfl)5 THEN K-Ktl 

GOSUB 2330 

RI-N-34 

R?>RTi3G*RND(l) 

RK-INTCM) 

RK-RK14B 

IF XX-0 GOSUB 5330 

POKE RK, 121 

IF XX'B GOSUB 5330 

POKE RK.B 

IF XX-0 GOSUB 5330 

RK-RKt4B 

IF XX'B GOSUB 533B 

IF PEEKtRfiwai GOSUB 5830 

IF XX»0 GOSUB 5330 

IF PEEK(RK)<>0 GOSUB 6270 

IF XX-0 GOSUB 5330 

IF RtO54808 GOTO 1138 

IF XX-0 GOSUB S330 

POKE OK. 121 

IF XX-0 GOSUB 5330 

GOTO seats 

RETURN 

f^uniiiiiiiniimiint 

REn .xplo* Ion wiu.ou 
REn»**i****±ii»»**»***"** 

POKE RK> 107 

FOR J'0 TO 2080 

NEXT I 

POKE RK,B 

flF»Pf-1 

IF PF-B GOSUB 256B 

If fiF>0 THEN J=54B2B 

GOSUB 5460 

GOSUB 4238 

GOTO 1I7B 

RETURN 

REn«i 

REN e 




6020 I 

6030 r 

6848 IF INUnrVBBJ'tnrVSB) GOSUB 562B 






6858 RETURN 

0868 REn******»***"****"****"«« 

6878 REn l In tiMuttWiM 

6BB0 REn* It* It* it I t*«liin*« tltitllt 

6090 B-fl-40. 0=0.1 .XX-XXtl 

6100 IF PEEKtB)»l33 GOSUB 1940 

6110 POKE B, 121 :P0K£ RK,12t 

6120 GOSUB I53B 

6130 POKE RK,0-'PO<E B,0 

1141) ifv:--BKitB ;B = [)-40 

6158 JF PttKCRKWBI GOSUB 5890 

B160 IF PE£KtRKK>0 GOSUB 633B 

8170 IF RK>S4BB8 GOSUB 6340 

6180 IF PEEKCB)-I99 GOSUB 1346 

0190 IF PEEKIBJOB GOSUB 0238 

5208 IF B<5348B TMEN RE'URN 

6210 POKE RK,IZ1iP0K£ B.I2I 

6220 GOTO 61 IB 

6230 RETURN 

6240' REm**** «!******""> iti»*»t**»** 

6250 REn ditiruciion irafport* 

6260 REn*""*"*"******************* 

S278 POKE RK,0 

6280 GOTO I 13B 

6290 POKE B,B 

6308 GOSUB 2320 

6310 GOSUB 5700 

6320 RETURN 

6338 POKE RK,B 

6348 GOSUB 5210 

6358 GOTO 1190 

6366 REni*±ii********»«**"***ti**i** 

6378 REn oholx du r>|u.Qu d. difficult! 

6388 R£rt*li*.****.***.*»* ****** ********** 

6338 COLOR, , ,B 

6400 PRINT'S" 

6418 PRJNTC7,0r'NIU£(UJ lipurli* du SOLDO 

I DU RANG " 

6428 PRINT[2,B: '" 

6438 PRINT: pojNT C7,BrNIUEAU 2:poril« 
flu SERGENT" 

6440 PRINTC2,8r 

6450 PRINT(7.arNIUEPU 3lpr»rl|i d. I 'OSP 
I RANT" 

6460 PRINT(2,0J i 

6470 PRJNTC7,0J ,, 1«« iln «nn»w;t »om P» 

u fr«qu*ni*-' 

64B0 PRINT: PR|NTt7,0J'NIUEftU 4:pQrlI» d 

u CHEF PECFiNlCIEN- 

6490 PRINTI2.B]" 

6508 PRINT[7,0)"NIUEPU 5:porti» «u SOUS 
OFFICIER PILOTE" 



CALCULEZ SUR HEBDOGICIEL 

Ce sont des calculatrices Casio, elles ont le label HEBDOGICIEL et une table des codes ASCII 
bien pratique pour vous aider dans vos programmes. Prix hebdogiciel et garantie 6 mois. Vous 
pouvez compter sur elles! 

<«80 Frs 

La LC-311 est un peu plus 
grande qu'un paquet de ci- 
garette, mais moins epaisse 
: moins de 8 m/m. Memes 
fonctions que la SL-800 et 
une carte de codes ASCII. 
80 francs. 




350 Frs 



La SL-800 Film card est aussi plate que votre carte de 
credit: 0.54 mm d'epaisseur. Pas de piles: alimentation 
par pile solaire, une simple ampoule electrique suffit a 
l'alimenter.8 chiffres de capacite, pourcentage, racine 
carree, memoire. Et une table des codes ASCII au 
recto pour vous aider dans vos programmes 




EXTRA 
PLATE 




: Commanaez ces calculatrices a: SHIFT EDITIONS 27, 

' rue du G6n6ral Foy 75008 PARIS: 

' Norn CNqui CCP □ 

; Aririv;-..j Mofltnnt .00 F 

■ „.. Frais d'envoi • 15.00 F 



6518 ?RtH1t7,*}' 

6570 PR[NTt7,0)'NIW*«i Hp*ftl4 <*• I 'OTF 
fCIER PILOTS ' 

6538 PRINT'.?, 6) 

6548 PRlNTt7.0J'NIUEMJ ?jpar( ,. du Cr«F 
O'ESCADRIt.l [ - 

6550 PRINT[?,BJ 

6508 PRINI[fl,0)'{top*r -X pour 

1* norwcr<roi*« ) " 

6570 PRINT :PRlNT[2,ej'0UEL NIu€«J CH01S1 

SSEZ-UOUS ?- 

6586 INPUT GG-Gfi-WttOO) 

6598 CXOR,,,1 

0600 IF pes<GGj-l GOSUB 6/40 

6010 IF neStGG)>7 GOSUB 6770 

6628 IF /«BStGG)'3 GOSUB 6B08 

6636 IF raSCGG)-4 GOSUB 6830 

6648 IF ABSCGGl'S GOSUB 6B60 

6650 IF A0StuG)-6 50SUB 6830 

6666 IF flSSCGGW GOSUB 6928 

6076 IF Gft>? GOTO t I 10 

6688 RETURN 

6630 »frl«n»l>illlnjliiuliilli.imi 

6706 REn in;i;ei;t«i;ofuor,oiiin 

6718 REn pour l.t n . I i.r.r: i ,■ 

6728 REH d. difficult*. 

6738 RillliliiiiiiilHMiiiiiiiiiii>i» 

6748 RS*15;TT-4:SS-2^I»480ee 

6758 NN-3:FW*-0-P=35-CC-l8 

6760 RETURN 

6770 RS-l3.TT-3SS-2^I-3500e 

6788 NN-3;«fl'0-f-41 -CC-3 

6790 RETURN 

6800 RS-13:TI-3.SS=2.NI-3B000 

■ "1 ;BB-10:CC-B 
6978 RfTLRN 

S830 RS-l3.TT-2SS-5:f>/>»l :N:»2508e 
6840 P»S5;BB-3.r08.NNM 
6958 RETURN 

6860 RS-1 1 :IT>2:SS»6:W.?:NI»20800 
6878 flft-1 :P-S5.eS-2:r07 
6888 RETURN 

6898 RS*l»iTT*l :SS-?-nn-3;nI-i5B88 
6380 flFi=l :P-60:BB»1 :CC-6 
6310 RETURN 

6320 RS-8=TT-1iSS-3;«1-! :NI-10008 
6330 NN-1 1 iP-OI -BB«t XC-4 
8940 RETURN 

6950 (itnttlttttttitllltttttitfttttttt 
6360 REn cfopp Mjrnt;"w» 
6378 REn* ****»i***t ******** t«»»*«t«»li 
3980 IF Z2O0 THEN RETURN 
6398 CURSOR 0,16 

7608 PRINT CflB,L :■ 93830383030381030383030 
3838383838 30 38 3B383B383»38 383838393838 38 
3838383B383838393' 
7810 RETURN 

7020 REn****"*******!*!"**"*"*"" 
7030 REn r»»l«< du j.u t2J 
7848 RE.niiu(Hiit»>miMiiiin»ni< 
7050 COLOR,..? 
7060 PRINT -P- 



703B PRINT [3,?] "pour < 



7130 PRJNrr.2,?rPour |.t niv.oun d* diff 
7M0 PRINT[2,7r-.1«u.« l«i Qimsuonii lr 
7150 PRINTC2,7J' , d.fr!«r« urt pul«»ani cho 

mp |naSll«t i<|U4. '' 

7168 PRINT IPRIHI • 

7170 PRINTtl,7)"Plui uou« r«ffpw*tir« «• 

7180 PRINTCl,?V'plui la parr.lt t<r« diff 

icii.t" 

7130 FOR 1-0 TO 20008 

7200 NEXT 

72 IB GOSUB 8048 

7220 RETURN 

723B ftEril***»**il****ti****l"**i*»»«* 

7240 REN pel f»H pour uaittmu 

7250 REH tupp|.r.ni.Q;r. 

7208 REn***« «•***«*«« «****»**«*» ***•»* 

7278 COLOR, ,,0 

7280 PRINT'P- 

7230 PRINT ;PRINT:PRINT^PR INT iPRlNT 'PRINT 

:PRINT iPRINTi 

7300 PRINTCI.6)"UNE UNITE DE COrWlT SUPP 

LEnENTftIRE* 

7318 PRINT: 

7320 PRlNTC I, 6] "POUR UNE ESCftDRILLE FNNE 

HIE CONPLETEnENT" 

7338 PRINIll.orOETRUlTE PPRES" iNI (" POI 

NTS.' 

7340 FOR 1-0 TO 0800 

g Hi y 
nm return 

• i.iiHilMliutinlliltlllit) 
-"^80 REfi pr**4rA«;on du j»u t 
■■ irali.^.oi d-.rr«uri 

-■40H Wl.IIKIllIHI.milllllt.llll' 

7418 r:UL0R, ,, i 

■- INI '■' 
^438 PRINT >PRlNICSi i |- UNI H 

■ ■ , .r... | 

7440 PRINT 16, 1 I" F7F1F7F UA II 71 II 

7F1F7f ^P?P1r7FIF7F1F?f•lF7T^F^F1F7F^^^ 1 
7450 PRINT i»RIHl iPRINl .''Kiel l'Kl"l 
7460 PRINT12, l I -JM5 35 33353335 95353M33 
335S39303 33353395 93339S933335959S9395S39 

7478 PRINK7, I 1" 93 

93 
7480 PRINTI7, I I- 33 C7C3C7C5C7C3C3C5C7C3 
C3C3C773 CSC7 C7C3C3C3 PBC3C3tF 3 

i 
7498 PRINTC2,U" » C7C5C7C3C?e3E3C5C?e0 

E0C3C7 23C3C? C?E«£0C3 C? C3 33 

7580 PRINTI2,]) 35 C?CCOf»CSC? B4C? C5 
C7 7«C5C7 C? CS Of»C4C4fC 95' 



7510 PR1NTI2, M ' 95 

75J8 P«INTt7,i]" 3M»9935M9535SS93939 I 5« 

5933593953505359335939595938335953535353 

5959395935333 

7530 PRINT(6,1)" (pour awr,,r •■» 'ii'« 



7540 PR] NT I 



I )" 
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'la page pedagogique 



la page pedago ~ 



Les deux programmes d'E.A.O. que nous envoie Jean CLEMENT 
le Var) concernent I'apprentissage et la verification des connais 
conversion ci-dessous permettra d'adapter les programmes sur un 
d'aller plus loin que le premier groupe. Vous trouverez egalement 
envoyes par Alain PRE. 



professeur de lettres a Saint Mandier sur Mer (dans 
sances des conjugaisons francaises. Le tableau de 

autre ordinateur que le Commodore 64 et, peut-etre. 
a suite des tables de conversion des differents logos 



Tableau dadaptation 



POKE 53280 :contr6le la couleur de la bordure d'ecran 

POKE 53281 controle la couleur de lecran 

POKE 198.0WAIT 198,1 :permet d attendre qu'une touche soil en- 

ioncee. 
POKE 54296 volume du son. 
POKE 54272 basse frequence 



POKE 53273 haute Irequence. 
POKE 54277 :fixe I'attaque de la note 
POKE 54278 :fixe le sur fa note. 
POKE 54276 :torme d onde VOIX 1 
POKE 54283 :forme d'onde VOIX 2 
POKE 54290 :forme d'onde VOIX 3 



La page pedagogique a besom 
de vous' Elle s'adresse aux 
enseignanis et aux parents 
d'eleves et doil elre faife par 
des enseignants. Les pro- 
grammes et articles publies ne 
participant pas au concours. la 
remuneration pour les docu- 
ments que vous nous enverrez 
et que nous pubiirons. sera 



portee de 10OO a 200O trancs 
la page pubtiee. a panir du ler 
octobre Une precaution indis- 
pensable pour vos envois 
goindre un courner nous autori- 
sant a publier votre oeuvre ei 
porter la mention "Page peda- 
gogique" sur votre enve'oppe 
d expedition 



Programme d'apprentissage 
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MIMTtn 7 
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•cxxcow 
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'uh BUTK vtfff 



■ ■ 



:£■:■ «oea KJKM1 £1 
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- - l: .*$ 
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9 EMD 
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* L-LEM' ■■»■ IFLO THEHI39Q 
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line pbiht PeinnHB'i3)C*' I >.pvi-D«'Ii 

ik« lexit 
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leee pweiot.b ■wmw-i oETwt 

iks« iFuiTj-c-tHeniefe 

I10B DfllSJE.EFOI, tl.i E">S3 1L.EFB ELt-E.EEfl 
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[4M ■ Df>*KI0IA 



8 IFMIM'VOI 

e icxTf 



Ivl T»CM \*-l 
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,i Feinrifli'9'.- 



■ 



9 FiytfiToieae «« 

s iwiMT»iw(i3i-«*»Fv-tr su» - e •" oowviui 

9 PCKEIM.fl MBPIM.I MTUl 
■ i'..i :.CH13?0 

... REnm 

i nn siohm. scNon • 

■ ■!-.. -,' i. ■. ■• .. ■!-«. i. .TV 

..-..f-4.-<. ,. r.-t-..> i- r-rnnrrs.!* 



Programme de verification 
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Equivalence entre differents 


logos 






imi 


tWB0ilQ7 


•mE it 




60UPIL III 




LOW MCUIS 


wins 


NIS EI LI5IES 
HC1I 


Mni 


MCfl 




ueii 




an 






us 


tMOfiOIIOf 


tftlt II 


axrti ni 


10UMUIS 


MJIIES 














CM 

Ml 


DM 

NI 


m 

Ml 




m 




m 
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urn 
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LISIt 
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sore <.......) 


TPtf (...'.., 1 


SOIC !...',.,l 


SOM (...'...) 


StM I...-...! 




Fl 


n 


ncjiSE iphi 




f**SE ifUl 












Hn t...-.,.i 




CIFFfKiTE 'JIFF, . 


-.J ....... 




w 


KP 


KTI 




K!P 




m 
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PMWII !...«...l 


PW( (..-•-..) 
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ptOKin ino, ...i 
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I 


*IF 




*ll 




IPVI 




wtni 


.../... 


WOt I.. J... I 


MlfBI I.../...1 


WHIWt (.,./...! 


...f... 




wain 


pnn 


poia 




nasi 




rim 






KSrE 


m 


ksfe 


RESTE 


« MI IMP 




KWIEI ' 


m 


KntiD 




MMI(» 




i*sr 


















V 


SP 


swfmmti 


SP) 


swrnttiiE* ispi 


wtriRSi 


ttfl 








511 




111 




so 


St 


S*UfDfPII(P <SII 


SWfKDKIEt 


S»l 


WIIUI 


RJ 






MS 


US 




cos 




cartE 


PJrK 


earn 




CWIE 














•mwis 




KIM 






rra 


no 




in 




HE* 










Ell 




unat 




mip 


MI 1 


HIT 




nor 




HOW 










HH 


FttSMl 


IMKR 




uiio 


USIE 1 


USIEP 




USIE 1 




UJff 






HOI 


ASCII 


ASCII 


»SC1I 


MClt 




1WKP 


lf*»« , 


an 




WW 




■FMfP 






tWU I...-...! 
...I... 


US'' 
( , lP■' 


EM* 


s*^ 


EH 1 




nm 

EWf 

OMr 


VIK' 1 
EH! 

iffljIE' 


vEocr 
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UiWEP 




VIOC 
EMf 




EUU 
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Dr LOGIC ZX81 



II vous faut trouver le tresor du Dr Logic, qui comme 
son nom lindique elait feru de logique. Vous visi*'jz 
plusieurs endroils avec differentes epreuves a passer. 
NB: Pour les tableaux, il faut entrer en une seule fois, 
sans tntervalle, le numero de la lettre. Ex: "1A2B3C". 

Alain BRUNNER 




ECRITURE fN UlOEG NORMALS DCS 
CARACTERES EN UIOEO INUER3EE 

^ICNE CAHACTERES 





."■"""". 








.'1 9 35 49 




.2 6 13 20 


33?e. . 






,-0" 






sias. . 


. V ' 



3 °Ef ■■:>. LOGIC 

5a GosuBTeee 

70 PRINT AT 3.4, L AnTRE DU SA 

uANT LC OOCTEuR LOGIC" 

75 PRINT ..SON TRESOR' 

78 PRINT , . " IL U0U3 FAUORfl LE 
'A3UUER APAES AuOIR ERRE OANS 50 
N ANTRE 

39 GOSUB 50S3 

85 PAUSE 388 

95 gosub saaa 

108 PRINT ..'POUR ENTRER.U0U3 O 

* <JEZ TROUUEA LA SONNE CLE ' 

_i30 PRINT TAB 8. " 



145* IF R"3 THEN PRINT AT 15,15, 

Af(7i,AT 16, 16. At(8> , AT 17, IS, At 

19) 

1*35 IF ft«l AND INK£Y|.CHA« 29 T 

MEN GOTO 1608 

1*57 IF A. 2 AND INKEYt-CHRt 09 T 

men goto 160a 

1*5S IF A-3 AND INK.EYt.CHRt 31 T 

MEN GOTO 1600 

l*5e NEXT T 

1*65 LET 0-0-5 

1*78 PRINT AT 15,18." ";«T 16, 



1*76 G0SU8 3020 
1*76 PAUSE 158 
1*79 PRINT AT 



8.8. 



"•»_" 


■TAB 13. ■ 


1 J 


,TRB 13, "| 


k %" 


.TAB 13, "| 


T J" 


.TAB 13, T 


"•■-•" 


TAB 13, "" 


l.TRB 


1*,2,TRB 



«»-.tab ai. ■•"■ 

288 PRINT TAB 

23,3 

218 PRINT , . "UOUS ALLEZ LA UOIR 
.^PPapft IT RC ' 
228 PRINT RPPUYER SUR 1,3 OU 3 

338 PAUSE 158 
358 C03UB 1888 
278 GOSUB 5888 

288 PRINT , ."OuF.LA PORTe E3T O 
-UERTE' 

388 GOSuB 2888 

318 LET 0*0-5 

238 PRINT AT 1 , 9, "BBAUO ,U0U3 UQ 
JS EN CTES TIRE. 

335 PAUSE 288 

*83 GOSUB B088 

*18 PRINT ,,"UOuS £TE3 HAINTENA 
•~ DANS UN COULOIR. IL ' A DES DE 
53IN5 AUX MURS" 

428 GOSUE 2588 

i*8 LET 0.0-5 

*S8 5QSUB 6888 

*50 PRINT 'UOUS UOUS TROUUEZ 
DANS UNE PIECE" 

470 GOSUB 3589 

*75 LET 0-0-5 

*85 GOSUB 3888 

*B7 503UB 3888 

*se LET u-1 

*89 GOSUB 3898 

498 GOSUB 3888 

423 LET 0-0-3 

*93 00SU6 8888 

588 PRINT AT 1 3, "UOUS ETE3 OOU 
? e 2, n £l*'l' " UN Pcu PLLJ S DIFFICIL 
E MAINTEnANT" 

518 GOSUB 3389 

339 LET 0-0-8 

5*8 PRINT AT 17,8; "UOUS AUEZ RE 
30LU CE PETIT PROBLEMS .'JQUS CHER 
1MEZ UNE ISSUE. . . " 

>*5 PAUSE 298 

535 ,:s,B 3999 

568 G0SU8 *808 

558 GGSuS 3988 

338 PRINT "UOUS AUEZ TROUUE LE 
PASBAOC" 

588 003UB 5888 

sia goSub 3aae 

415 LET U-1 

338 PPINT "UOUS ETE3 eNFIN DANS 
LA SALLE DU TAE3QP" - 
_538 PRINT "UOUS OECOUUREZ UN CO 

6*8 QOSuB 5889 
5*5 PAUSE 298 

847 CLS 

538 PPINT UOUS ETES TOUT Fiefi 
D AUOIR DECOUUERT LC SECRET OU D 
• UKXC DE JIE'J/ MRPICGTS TOUT DE 
HECHES- IL EN PAFFOLRIT" 

999 STOP 

1819 LET At (1) -" W " 

1828 LET S».J, »•■ «L ' 

1839 LET A«l3l a" M " 

1139 LET A*<4l ■" Ki " 

1.119 LET At<5) -" K " 

1120 LET A1C6) ■" X " 

1288 LET A«!7j ." V ' 

1219 LET A«<9) -■ % '■ 

;228 LET R«I0) -■ JE " 

.308 LET A-INT lSWD»3l*l 

1*89 FOR T«l TO 18 



1*88 FOR T-l TO 15 

1540 GOTO 1*59 

1588 RETURN 

2819 PRINT AT 2,8, "UOUS ENTREZ. 

DES ARAIGNEES UOUS TOMBE OES5US ' 

2915 PRINT ,, DEP 5 ET 3" 

2813 PRINT ,,"U0U3 DEUEZ LES EUI 

TER ET LES ECRASER ENSUITe" 

2819 PRINT . .■■SINON.ELLCi UOUS P 

IOUEPERONT SI ELLES SOKT PLUS DE 

19 A TERRE. " 
2829 LET £t="»" 
2833 LET 8-13 
3839 PRU3E 268 
28*8 CL3 

PRINT AT2 1,1 

3855 LET A-INT CRND*15) 

12 LET M-INT IRND»13)+1 

2865 FOR T-l TQ 21 

2866 LET N-INT (RND»38)*1 

2878 PRINT AT T,M, E|, AT T-l.M," 
",RT T,R,E«,AT T-l ,A; ") ' , flfT T ,fl 
1S.E«,AT T-l,fl*15, " (", AT T,M*15 
et,AT T-l.M. IS, "J ''.AT T,N,E«,AT 



2898 PRINT AT 30.3-2, 
29,B."B'",AT ai,Bi"B' 
3861 IF T<j2a THEN GC 



, AT 



_.. GOTO 2865 
2862 IF A-8 OR M-B OR fl*18-B OR 
M+15«B OR N=B TMEN GOTO 2130 
2985 IF INKEY*-"5" RNO B > -9 THEN 

LET B-B-2 
2038 IF INK£Y«-"B*- AND B<29 TMEN 

LET B-B+2 
2188 NEXT T 
2118 NEXT L 
2113 RETURN 

3130 PRINT AT 5,8. "OESOLE. UOUS A 
UEZ ETE PIQUE" 
2180 OOTO 8320 

2818 PRINT ,.'UNE INSCRIPTION " , 
"APPUVEZ SUA L INTRU3 1,3,3,4,5" 
3312 LET D»'l) ."SINGE- 

3515 LET D»(2) -"3AU0N" 
2520 LET at (5) .■'ELePMRNT" 
2325 LET Of 14) -"UACME" 
2530 LET D|t3) .'CMIEN" 
2535 LET Dt(8t ."CTE" 
2548 LET ai (7) ."PRELUDE" 
35*5 LET Dt t6l -"SieoC" 
3550 LET Dt(9) ."PRUNe" 
2330 LET A-INT IRND*3) *I 
3570 FOR T«l TO 3 
3575 PRINT AT 7*T,1,T 
2368 NEXT T 

2535 IF A«3 TMEN PRINT AT 8,3,0a 
16). AT 9, 3, 09(7), AT 10,3,D*(5i,A 
T 11,3,D$!3> , AT 12.3,D«t3> 
2599 IF A-2 TMEN PRINT AT 8,3,09 
'Ij.AT 9,3;0«(4),RT 19,3.0«<3t,A 
T 11,3, Dt 13) , AT 12,3. Dt<6) 
2S93 IF A.l TMEN PRINT AT 6,3, Dt 
(l).AT 9,3,Dt(2i,AT 19,3,0t(' , ' 
T 11, r- *■ 
2389 ,. 
2883 IF i. _ 
MEN SOTO 2639 
2593 IF P.. a AND INKEYt-CMRt 33 T 
MEN GOTO 2829 

2610 IF A-3 RNO INKCYt.CMRt 31 T 
MEN GOTO 2620 
2315 GOTO 2609 

2620 PRINT ,,"UNE PORTE SECRETE 
S OUURE ■ 
2538 PAUSE 250 
2335 RETURN 

2388 PRINT . , "FAUX" ,, "UOUS READE 
Z DU TEMPS" 
2302 IF U-" ~ 
2885 PRINT , , 

2819 LET 0.0-5 
2315 GOSuB 8000 
2330 LET U.l 
2335 GOTO 3370 
3330 PRINT , "Ul 

SOUS U03 PAS" 
3850 PAUSE 300 
3669 GOTO 8490 



AND INKEYt"CMR* 31 ' 



E TRAPPE S OUURE 



Suite de la page 14 



n^ URANIA II 



I . I* :m*fl 
7558 GOSUB 7718 

75M IF W--1" GOTO 7018 
^538 IF TIKlflM Kiro 7538 
7680 RETURU 

',•!! G4--0U1- 
^629 RETIXW 

7638 IF ERMOS GOIO 1MB 
-We IF PEEK(B)'133 IHEN GOIO 7608 
-358 POKE B.B.&OICj 7B79 
*,fia POKE 8,133 
378 IF P£EX(«Kj'?at WTO 7639 

e» POKE BK.B-Goro 77B8 

99 POKE BK.261 

% GOTO 13)8 

I a CURSOR 1,13 

78 P«I*([?)1J' 82C3C3CR3C3C3CK3&? 



r>8 CURSOR 3,21 



7788 PRINK?,))' BTt6€6 E6E8E0E8 E6E6& 



•363 M 833333M 

tSOR 23,21 
7889 PRINtro. | )'FA7a363M7S tl9Bi)" 
7818 CURSOR 73,72 
7878 PRINH1, l J"73737W373737373?373?373 



........ 



7838 Q rUW 

7B^8 OfdiiJilinliiiiiiil 

Efl >n;tiai;*atlcw> tMulauri isran 
7838 Rtfi - r*H* ■>■> ,' ■ 

7t?B R] :ii'nti»tnnit»»i)»innuii.n 

■ ■'< 73)8 REAP hi' 

a . , . 

/'uvi ur<:« i. j. /,/,-,, i,i, /,i,. ,, j,4, /,<,,-. 
1,7, '.'.'./,/,> .„ 

OB 

g ■']<, 

to tc en 

i i - 1 rKw if-o 

'378 If 1 /I (.'./ ' 

•3 I GOSUB 8738 

;-riH |p 1-16 GO&iJfl 838B 

8808 IE ,' J [A) r AiB B3J0 

9B10 M '' . 



! <S 



.TAB 7 , - 



3919 PPINT .."UOUS TROUUEZ UN PA 
PIER. IL Y A ECRIT 

3813 PRINT ,, 'SOUREZ UOUS RE50UD 
RE CETTE PETITE OPERATION ' , En 
SACHANT QUE 

3920 PRINT , , ■tl»^-13 ET it!./ 

3830 LET Ft(l) - 

30*0 LET Ft<2) • 

3050 LET Ft (3) « 

3939 LET ft. INT 

3189 PRINT , ,,PI ( 

3119 INPUT X 

3140 IF A-3 AND K-CODE "m" TMEN 

GOTO 3308 

3160 IF A.l RNO X-COOE ' -' THEN 

GOTO 3290 

3189 IF A. 2 RNO X.CODE """ TMEN 
GOTO 3290 

3190 PAINT ,,' PERDU ,'OOMMAGE" ." 
UOUS UOUS RETROUUEZ DEHORS" 

3191 PAUSE 290 

3192 LET 0-0-10 
3195 GOTO 90 

3280 PRINT , ,'GAGNE " 

3205 PAUSE 290 

3219 RETURN 

3319 PRINT .."UOUS TROUUEZ UN CO 

FFRET.IL Y A 3 CMIFFRES INSCRITS 

0ES5US 
3329 PRINT "22. 9.10" 
3325 PRINT , , 'LEOUEL AlLEZ UOUS 
UTILI5ER COMME COmBInAISON ?" 
3338 INPUT V 

3335 IF Y=X THEN PRINT .,"UOUS E 
TE5 ASTUCIEUX" 
3340 IF Y.X THEN GOTO 3360 
3345 PRINT , , RETQURNEZ DONC LIR 
E LE PAPIER 
Ji5£ PAUSE 290 
33SS GOTO *B9 
3360 PAUSE 250 
3370 RETURN 

3539 PRINT ..TROUUEZ LE MOHBAE 
QUI SUIJ LOGIOUEMENT ' 

3555 LET qi'<2> "JjKjBjP 

3578 PRINT". .Gt 'A. , ' >■ ' 

3575 InouT ,. 

350C IF A=3 AND X.CODE "2" TMEN 

GOTO 3700 

3620 IF A-l AND X-fCOOE L *CODE 

"ll"j THEN GOTO 3700 
3640 IF A. 2 AND X.CODE 'C"»CODE 
"O* TMEN GOTO 3780 

3659 IF G-l THEN GOSU8 2020 
365S PRINT CODE "L tCODE "N" . COO 
E "2", CODE "C +CODE "D" 

3660 IF G=l THEN GOTO 3793 

3670 PRINT . ,"AI£,fiI£,AIE" , "UOUS 

V0U5 ETES TROHPE" 
3675 PRINT ENCORE UN ESSAI" 
3585 LET C*l 
3590 LET OsO-10 
3695 GOTO 3575 
3708 PRINT ,,"6RAU0" 
3717 PAUSE 200 
3720 RETURN 

4018 PRINT "3 TABLEAUX. 3 DE55INS 
.31 UOUS RETROUUEZ LE5 ASSOCIATI 
ONS.UN PA5SAGE S OUURIRR" 



40 IS LET 
4020 LET 
*030 LET 
*0*0 LET 
*9*5 LET 
*9S0 LET 
4855 LET 1. 
*970 PRINT 
TAB 24, 1" - 
TAB 24,1 
TAB 24,1 

TAB 2*. 1 

TAB 24,Mt(6) 

4075 PRINT , ,TftB 3.1. TAB 14,2,TA 



>2) ■' 



M*I6) 

".INT 

,M«(5 
,Mt 13 

.Ht 16 



TAB 12, Mt (5t , 
TAB 12, Ht (1) , 
TAB 12,Ht(6) , 
" Ii5); 



Mt<5) .TAB 12 



B 26. 3 



■ 1 



MtlH 



4130 IF A-2 TMEN PRINT ,,Ht«*»,T 
AB 12. M» (21 , TAB 24.HK1J 
4130 IF R=3 THEN PRINT ,,Mtl3t,T 
AB 12,Mf(4),TAB 24,Ht(H 
4190 PRINT .TAB 3/'A",TAB 1*."B" 
,TA8 36, "C" 

*280 PRINT ,, ASSOCIEZ LE NUMERO 
ET LE CMIFPRE.DAN3 L ORORE 1,3, 



*0*CHRt 30*CMR| 3B.CHP« 31*CMRt 

39 THEN OOTO *3S0 

4280 IF A-2 AND ZfCMRt 29*CHRt 

39»CMRt 30*CMR» *0*CMRt 31*CMRt 

36 THEN GOTO 4359 

*290 IF A-3 AND Zt-CHRt 29*CHRt 

38»CMR« 30+CMRf 40.CHRt 31*CMRt 

39 THEN GOTO *350 

*300 PRINT AT 31,0, "eRREUR.UN PU 

TRE ESSAI' 

*305 LET Zt""" 

4318 LET 0-0-19 

4320 IF C"l THEN GOTO 6*99 

4338 LET C.l 

4349 GOTO 4310 

4380 PRINT "OAGNE" 

4379 LET 0-0-5 

*389 PAU3E 288 

*398 RETURN 

5919 PRINT "UOUS ETES A L ENTREE 

D UN LRBYRINTME. " 
5838 PRINT UOUS DEUEZ EN 50RTIR 

SftNS UOUS FAIRE UNE PRRCTURE DU 



CRANE " 
5838 IF U-1 TMEN 
A 3 EFFACCR" 
5049 PAUSE 239 
5080 CLS 

cf ZtUl -" 

^sIlIt": t 

5110 LET It -3i 

■ ■ 
5115 LET It '4) -" 

5120 LET It (B) ." 

5125 LET Itl5i «" 



PRINT "CAR IL U 



8078 rue'iD" »,7B -PRINKIT.l )- 
8038 RETIJRH 
88*8 COLOR,, ,0 

8858 PRINI-B- 

8860 PRINCPRINT: 

8078 PRINr(fl,0]-CE PR0GRW1HE OE JEU OFFR 

F Ift - 

8080 PR]NIt6,0)-PO«IBILIIE D'UN WFICHft 

fit - 

8890 PRINIl6,8)-nULnC0l0RE DES UfllSStrtl 

' NHCfll*," 

8108 pRi(mr.,0rnjuiEFois cela nef-essiie 

IJNF OIIFNIE- 
8110 PRlNH6,B)'M)PLEnCNTfl]RE ENIRE LEO 
till I IflKIS- 
8170 PRJNtlft.Bl-NIUEOUX, POUR L'lHIIItt I 

■MTiON* 

HI IM l'RINl[O,0)-UEi COULfUHS SUR L'ECRflH 
8110 PRlNI(3,8)'nUSSI UOUS POUCI ' 

'Xtlfi DUID 

B)S8 PRlNH0,9J-SELECnONNE,R UN ft! I [CHM 

f nowK uRont . - 

BlftB PRJN1 iPRINt.FRINr ! 

8178 PRJNH7,81Tlt«.IIf.Ot.ORE:o;«»ou»l 7" 

8180 PRINT PRINI 

Hi-m pRiNn7,arnoNOCnRone;n;v«ouj' -? -i 

8780 FOR 1-0 TO 13000 




_ I T-l TO 19 
5205 PRINT It'T) 
5287 NEXT T 
5208 PAUSE 498 

5310 IF u.l THEN CLS 

5311 LET X=16 
521S LET Y-32 

5320 RRIrrr AT X. *. M 

5222 GOSUB 8820 

S225 IF ENKCY*-" TmCn GOTO 5225 

S230 IF imeVfa-S" And (.0 THEN 

LET .=;-l 

5235 IF INKEYt="B" AND < . 3* THEN 

LET .=Y + 1 
S258 IF IffKEVfSa ?" AND * J0 TMEN 
LET /=X-1 
5255 IF XNKCrr«a"6" RnO .-16 Then 

LET >=X*1 
5260 IF X-0 ftNO Y<2 THEN GOTO 33 
90 

53f0 IF X)B AND X<12 AND Y , 10 AN 
Y<1* THEN GOTO ©4 00 
5275 IF IfX*l. tf.l' s'B" THEN GOT 
O 5490 

S230 GOTO 5228 
5389 PRINT "OUF.UOUS EN ETES SOR 

5319 PAUSE 150 

5315 IF u=0 then let 0.0-10 

5320 RETURN 

5490 PRINT AT X,Y."B" 

5410 LET 0-0-5 

5430 GOTO 5220 

6019 FOR Lie TO 9 

6915 PLOT 50. L 

5920 PLOT 50-L.0 

6025 PLOT 40-L.0 

6830 PLOT 30-L . 19 

6933 PLOT 49-L . 19 

6940 PLOT 39, L 

5045 PLOT 50-.O»L . 10*.5*L 

6050 PLOT 30-.5*L,.S»L 

5055 PLOT 39-.5#L, 10..5»L 

6960 PLOT 45-L , IS 

6065 PLOT 35-L, 15 

6979 PLOT 2S,5*L 

6109 NEXT L 

5105 PRINT AT 18,19 ,"■■• 
6198 IF NOT U THEN GOTO 6160 

6110 PRINT AT 4,0. QUEL EST LE N 
UM.ERO DU COFFAC 7 

5115 PRINT "ENTREZ UN CHIFFRE AU 
HASARD '1 A 30). LE TCHPS PA 

6120 LET A-INT (RND.301.1 

6125 INPUT P 

6123 PRINT AT 8,3, P," ■ 

6130 IF P,fi THEN PRINT AT 10.0," 

TROP MAUT" 

6135 IF P(A THEN PRINT AT 10,0," 

TROP 6A3 ■" 

6140 IF P.A THEN GOTO 6155 

6148 LET 0-0-8 

61*8 GOSUB 8920 

5149 LET R-R*l 

6150 IF R-6 TMEN GOTO 8400 

61S4 GOTO 8135 

5155 PRINT AT 19,9, "OUUERT 

6160 PRINT "LE TRESOfi EST fi UOUS 

6189 RETURN 

3019 CLS 

8939 PRINT AT 9,33, "TEMPS 



, O," 



6939 IF O<-0 THEN GOTO 8490 

3090 RETURN 

84 10 SCROLL 

3*16 PRINT "AIE AIE.UN PIECE ; L C 

AU MONTE" 

8416 FOR L-l TO 21 

8417 SCROLL 
3*38 PRINT " 



8440 PRINT AT 14,7. "NOYe" 

8450 GOTO 8530 

8610 CLS 

3330 PRINT AT 12,7, "OOMHAGE, CHER 

COMPAGNON" ."UOUS ETE5 MORT" 
8538 5T0P 
9010 LET 0-109 
9015 LET U-0 
9020 DIM ftt(9,3> 
9030 LET u.Q 
90*9 LET C«0 
9980 DIM D919.8) 
9060 LET U-0 
9070 DIM Ft <3,7) 
9889 DIM Gt<3.10) 
9085 LET O-0 
9090 OIM Ht'6,6) 
9100 LET Z%*"- 
9110 DIM It(21,36) 
9120 LET R-0 
9500 RETURN 



B710 



XI 



8778 RETURN 

0238 C1KS0R 0,0 

8710 PR|NM2,LJ'It<MIPl ISrtTION DCS r.CKM.E 

IJRS-FCRPN- 

8258 RETURN 

8700 CURSOR 9, IS 

8770 PRINT ( TT.LJ ' 

B?88 F.URSOR 0,20 

8239 IF X-2 OOTO B3]8 

8300 PRINMR.l J-LO OOTOII I | UFl POUUOIR R 

CPRf.HORF.I* :GOI0 B37B 

83I9 PRINTle.l. J'Lft iinTfUi I F un POIJUOIR C 

omxuf 

8370 RETURN 

RSM «,« 

8310 PRINT (TT.LJ * 



B37B RETURN 
8388 CURSOR 0,0 

B3M ('HINT itt.l; 



M29 "F Iiifn 



POLICE DEFI 



TBS 80 



Vous avez toujours reve de devenir policier, votre 
chance est arrivee mais faites attention, un assassin 
mourtner (6videmment) risque de vous envoyer outre- 
tombe en un coup de cuiller a pot. 

E. MICHELUCCI 



Police Deft est un "melange' de irois jeux. qui demandenl respecti- 

vemeni trots quaiites la memoire. la deduction el la dextente. 

Je ne vais pas vous expliquer en details le prmope. car lout est 

resume dans le programme lui-meme. El puis, les pages de trace 

sont preoeuses" 

Mais avant de faire le RUN "tn-extremis", il taut tout d'abord mserer 

les grapMsmes dans le programme. Pour ce faire, tout depend de la 

capacite de memoire (Koctets) de votre ordmateur 

Deux cas se presentenl: 

1) Vous ave2 32 ou 48 Ko de memoire (REM): 



3 PEH POLICE DEFT 

6 REn Co»fl9ur*llQA TPS-89 nc-4*W 3. 4 ft 1. 

7 REH OlXlMttt OH C«»Mtt4 (C) 1994 Efi< 



Hlctwluccl 



i .JNEBWIR&JT0I74 CLS B-U7- 

9 CLEftPTW W--ERRICCK « D€FINTe-2 DEFSTPfl TJi--PRRTIE DU CODE 
SECRET EST ■ rF«-'P«RTiE [»J CODE SECRET ME VOUS EST PAS '- "'.\ 
EE " " ■>*--Et**--.>.s »r*t .>r *rrr. ? rtt«r ^r. " EHt= CCCCCECCtEE 

cttcccccccttccctcrcticccttttcccttttttrcccccttrctccccE" 

19 FORI«790TO328STEP-7 B-USR* I > 'NEXT 0-9 G0SUB296 PPINT'CC" XZ-9 

TQ-d TW-33 

11 G0SI.P12 PPINT G0SU817 G0T022 

CTXtCCCCCCCCCCCtttCtCtCCCCCCCtCCCCCttCCCCCCCCC" 

13 p«iMTTfle(TQ . ctccrtttrccctcttcctcccircctccccccccccccEtccccc- 

14 oeiMTTfw to >-ccttcrtccI:ccccttr[ctcc[[r.r:[[:r:r.c^.^^:ccr:[:ct:ccccc'■ 

13 PPtMTTftBv-TQVCtttCCCtCCCCCCCCCCECCCCCCCttCrCCCCCCCCCrJCCCCCC" 

16 RETURN 

|7 P»lNTTflB< TU ) CtCtCCECCCtCCCCCCCCCCCCCC ■ 

IP. PPtNTTH6< TVJ •"cccctcccccEcrcccccccccrEC" 
!? ppiNTTfle'TH'-rcctttctccrccctcccccccctC" 

28 PPIHTTflecTurcCCEttCttttCCCCCCCCECCEEC 

31 RETURN 

?? 3-i'SR' 5008 » p»INT9240, ,, 'C> l og? '84". i»304. "E. Nlcfwlvcel'j ■FOR 

:»1TOI30 NEXT L-2'TK-e G0SUB1I6 L-9 C0SUB296'GC3iJB139 G0SU8136 

23 TX-9 GOSUei29'FORI-15S79TO15390?TEP-67 P0KEM69 FOP J-1TO10 • N 
EXT POKE I 32 NEXT U-36 Y».-*tr POLICE DEFI *T*"Ufl-l 0050616700 
S>J8139 F0PI-!T0?9e NEXT OOS^jenS 0QSIJB12? PPIKTai65. "Mot. no« Mt 

24 8"JSP-6«9> PRINT»177,N«; PRINTSI28. . ' GOSUB 1 4 P COSUB 1 56 G0SUS1 
2-? PPINT??2?.-> jmjj ,, n -hjssiti sim* »a-Vl".< 1-.- " ;5284, - 1 ' InsPec 
ttw *vfnclP*l Lucril "St «nVe34R, "v»c*nc». "1 

2? pp i NT -I'M <mi 3»*»-vi- 4* t« r«M-"jC412>"-PUc«f. Votre miaalo 
n » > , ..» *'.■»-. ' >t470j "SI wo"j» KhowZi j'*ijrji t * iwt»n*e";i!539, 
■i<»i* d'»">i>:*- veto** aob < 1» list*", 5693, "d- nes victimes I 1 !" 

oe 

26 PR!NT»730."SI vous n* «'oul«I »»s iouer les h»ros. ":'PRINT979 

8- "vous ROWK *now-9 p«fu*tr Ottt* ttefo "J PPINTr»929. M flr:t:= 

Pt*i-vw» * On vi Noni-i 

27 R-INKEY* IF«<>--THEN29 

29 G0SU6121 !FT>y>iTHENPO"Eie393 J 7? PRlMT(»4e.CHPJ'28?>. P0> f EI629 
732 P9KE16319.32 F0RI-1T0129 NEXT'P»INTi»177.CHP^29? :■ POKE 1638 
3.32 P0KE16297, 143 P0KEI6319. 78-F0PK-1T039 NEXTPPINT?177,N«.<»40 
.-POLICE PEFI-, F0PI*lTrjlze^MEXT-0OTO27ELSE19 

29 ffewoctl IF»»""O"THENPHIMTf730,CW»(23e)J«?89»CHRtC239)j«9 1 2e*O« 

K 226) j «?»»*« M«t»trt J'fsP-r- ti-;:YF-i KF-21 ■ OOSUS 1 ?6ELSE I 

Fft»"N-T 1 K. ; PC»'E:???7 7? GOTO10ELSE27 

wi F0PI-ITni?9 n-evt P>ijSP'7?99.i T/-9 PPIHT(»?2a. "U'jel t*t "Otr» n 



31 «-IM*EVI |Fp."-TMENO0'5fJB123 IFTX''>lTPE>F0P!-lT050r'E:'TP01'E16 
301-C.32 FOPI-ITOM-MEVT P0VEI5391 *G- 143 ■ GOT031ELSE19 

32 IFfl-tHF*' !? iTMEW37ELSEIFH-CHP«'8)HNC'0': .9THFWG-rj-i i POKE1 5331 *G 

-j.4« 0OTO?iELSErFP=CMP«'24)OPP-CWP*'31 )THEMr>9 > G07038EL8EIFR3R 

O)'32CPP?C'0 ' -i^r~^:i\ =:.'-t!tr,. ; ? T^ltPC^E16391--0.flS':'fl)- 0-0*1 ^ OOT 
Q31EL3E3I 

33 FOPI"I6391T016319 >I i IFPEEif'' J I-460PPEE"' J >"143THEW? 1 ; 

34 NfW-NW«*OHP«'PEEif<-n' 

33 NEXT IFLEWiJM«)-iTHENMH.""C0T031ELSE0-e 

35 TX»« 0=^ CLS PPINT?7PJ6..'W"16819'BV-16?39V*="*t» POLICE OEF 
I t«- FC»I=2lWT(32iSWiTEP-l B>USP' I >■ NEXT 

37 print cEnrccrcccccccccrcc ' 
39 PPIMT TcccrcrcccccEcccccrcE" 

39 PPINT'CtEECCCtttECCCCCCrrCC" 

4g PRiNTTcccEEctcctcrr:". 



a)Tapez le programme en entier (sans faire d'erreurs!'!), puis sau- 

vez-le. 
b)Failes RUN 500, et attendez que I'ordinateur affiche READY (vous 

avez le temps de vous faire un cafe et meme de le boire!!). 
c)Sauvez cette nouvelle version, car si vous n'avez pas fait d'er- 
reurs, c'est la bonne!! 
2) Vous n'avez que 16 Ko de memoire (toujours REM) 
aJTapez dans un premier temps les lignes suivantes; 

5 a 21. 36 a 40, 53 a 61, 81 a 66, 111 a 1J5, 133 a 183, 210, 

481 a 506 et 512 a 514. 
b)1dem a 1). 

cjldem a 1) (a part que ca n'est pas encore la bonne!). 
d)Tapez le "reste" du programme (toujours sans faire d'erreurs!), 

puis supprimez tous !es REMs et, sauvez cette nouvelle et der- 

niere version. 
Oh, j'allais oublier! Ce jeu est bien entendu sonore, je vous invite 
done a connecter un amplificateur adequal 

Vous pouvez enfin (!!) (aire un RUN tout court, et decouvrir ce Po- 
lice Defi, qui j'espere, ne vous (era pas regrelter d'avoir passer une 
bonne soiree (meme deux), devant voire ordinateur favori... 



dl FOPK*ITC399 NEXT 0-1 1 ■ 00-62 00-66 00SIJ9131 U-21 G0S0S167 PPIH 
T913S'"Hv«nt I'ultln* co«**.t* il vo-is f»ut *bb»tr» nes deux 9»rd 
es tfe corps. Tres 'dr-cits »us»i M P<wr eel*, ■jwt. 4*v*x frin^h 
ir »tU<l*Urj tt»Pes. <»'ji vous Per-mettrofit de deco>jvrlr t* P"i 

42 PPIHT"lus de rer,jel9n*«ents Pas?iblM syr nr\ code secret. 0*1 
ui-ci servir* i uttllMf les bonnes touches Poor Pouvoir tirer. 
L* Premiere tet~-t;re (<X1 sl9rie) d* ce code correSPOndr-j. mi Preni 
•r tlr rt Jltisi de fjite. .." PRINT" si il vou* ■unflijfit u^e ov"; 
It PP1MT" Pli)si*"rs lettres. "O'js ser*7 Torce d' jPPuser m h»s*r 

d sur I* clavier i(?7P^.."Borio- cbjr.ee "; L*3 GOS 

UB116 IFTKalTHEHNM*-"" GOT018ELSEYF-72 XF-14 TC™5 TW-19 GOSijeiSS 

■ GOSiJBl ?6 PP I NT?9 . CHPJ' 2m ) L=0 G030B1 32 ■ 0-9 

44 W-19.Y*-"m PPEMIEPE ETFIPE »**■' 0OS'JB167 PPINTr»132 . "Vous *U 
er voir »PP»r»ltre un notnbre Oiji v* devenir de Plus" 

43 PPINT" en Plus InPorttitt. R'.' bout de diy transforviatloraij •• 
vo'js le detMnder*!. Si vo>.'S rePof-de: Juste, vous conn*itrei \i 
Premiere P.rtie du code secret. .."; YF-127'XF-l? G0SIJ81?6 PPINT 

l!32^rB^:' , LOP30i,iE VOUS SEPE2 PPET"; 

46 IK-333^00SiJB292 PPIMT(?*4?. FPIWTP467. , 00SIJB134ELSE46 

47 F0RJ> 1 T05 ' NO-PND' ? ) ■ N0t-N0«*STP*'H0 ) ■ P-UTP' Z?™ f P? U^^JZ ■ HO 
*;'FORI-ITnj490,NEXT'NO»PWf3 3 H0*-STR«<HOHHQ« B-USP'2099)^PPIN 
T8932 r HDS)'F0RI>lT0149e>NEXTipEXT'B^JSR(8999} PRIHTr>3?3. "t r r i 

ittttt'i 
49 PRtNT3782."Quel etait ce noiibr* - >- i r;HPf<285>) 
49 fi-INXEY*' IFfl*""THENPOKE16I65*Fi32*F0RK"lTO28'HEXT.p01'E16165*F 
. 143 > FQPK- 1T029 NEXT ■ GOT043ELSEIFR-CMPJ' 13 >PNrjF-19THENPPJNTi?332. 
M0*j GOT032ELSEIFfi"CHP*C24 50PP"OHP»c31 )THEHF-e'G0T04eeLSEIFS-CHR 
Jf 8 )ONr>F.90PP< >" "BHOF- 1 9flNT>P.< >0HR*f 8 >THEN49 

39 IFH-CHP«t8)THEH31ELSEIFfiSCCflK490RftSCCR»57THEN4geLSEP0KE16l6 
?*F.RSC<fl)'F»F*l iC0T049 

31 P0KE161«*F,32;F-F-I : 00T049 

32 POKE 161 7?, 32 FOPI-16163T0I6174 : NP»-NPt*" "♦0HP*< PEEK/ 1 )>NEXT 

■ IFNO*-NPfTHENPR I MTW69 . "CORRECT " , ■ FOP I • 1 T02? ■ PP I NTB-i?2 . CHPf ' 212 
>.. :8»'JSP(3>'PP!NT!?532.N0*; B-USR'3 ■• ■ NEXTELTEPPIHT???.? " H'COPPECT 
"-. FOflI-313TO1990.B-lJSP/I^NEXT 

33 0l-PNDr27>+63^PPINT?338. , TECCC"i3781 -CHRt' 227 > , *?36? . OMR*' 294 ) 

34 IFNOf-NPfTHEHB-U3P'B9987'VV-32'CO-01 PPIWT(»323. ,, L« PPEMIEPE " 
;TJ*iCHR*(Cl >ELSEPPINTf>314. "Lfl PPEMIEPE " ; TFt; 00-83 ■ W-93 

33 UE-I91'U-19'F-tJ.N0*--*:KPf«"--GnSUBI27'G0SiJB132'V«-"*** DEUX I 
EME ETRPE Utt-'GOSUBIS? 

36 PPINT59. :PPINT"C r*inter,»nt. vous devez Chercber Pyis tro 
U'/er, le conteTw de hult c»»es d'un Cfrre. Les c»r»cteres Possib 
les sont -I- et -O-.Vous »vei flyitre essais. et les rePonses RUM 

tentative* seront donnees "i 

37 PRIKT-de 1* naniere su.ivante'C-iCMRS(299>:"» ■-> un car.ctere 
bier> Place. EC Si vous trouvei U solution, vous conn#ltrei 1 

# seconde P*r— tie du code secret. .."; 'YF-142. VF-13'GOSUBl?* 

58 PPINT(?791."P0UP OOMHEtCEP. " ; Bfi 'F0PI-1T08' J-RMOC 2 ) 'IF J- 1 THEN 
.J»-"I n ELSEJ«- H 0" 

59 l-fll-rlR** Jf i NEXT : OP- 1 5 1 97 i IK-81 9 ■ GOS'JB292 
69 PP1NT?69- "CCCCCCCC" Ji?7Sl , "C" . 

61 PPIHT?277,"CCEEECCCECCC[:Ct:r:r rr: r [r rr rC(:rrn: r rr [ :r rrr r r r: rr I - 1 ;rr rr 

rccEECCcccccECCcrrccrrcccEcccccccccrccrrcccrcccrrcrrcccrrrTrrrrr 

ECCCCCCCCrCCCECCCCECEECrCCaTCC- i ' 

62 im*-"" = Pf)<8)-P0(8)+l 'GOSlJB73.0P-0P*32PiP0'l >-13794. PO' 2 1-1371 
9:POf3)"13716'P0<4)-13832'PO<3)-13844.P0'6>-13969'P0''71-15366 PO 
< B )-13972> PO-l ■ IFPOf 9 >-3THEH?3 

63 UM-PO''POVCB-PEEK(PO<PO)) i n-rWKEY*'lFP- — THENFORI-lT019'NEXT' 
P0KEW1.143'F0PI"lT0I3'NEXT'P0*-EWM,0R'GOT063 

54 IFfl-CHR*ce>ftNr>P0>lTWEWPO"P0-l .G0T063ELSEIFfl-i:HR*'?iftHpP0'8THE 
NP0-P0*1 'G0T0€3ELSElFP«CHPIf31 >0PP-CHP1' 24 JTHEWPO-I FOPI»1TOB'PO 
iKErtKI>#42'NEXTiG0T0S3 



En raison de la 
longueur du lis- 
ting, nous passe- 
rons ce pro- 
gramme en 2 
fois. 




63 IFft-" ,, RNDPO<9THENPOKEP0'PO).42- IFP0-P.T"E06?ELfEP^- !> ?*i G0T06 



66 IFP-CHRS' 13)THEN67£LSEIFR"M-rjfP)--0 H »J0P0-:9THEMPr>'EPCKP0vRSC 
CR>i pn.pQ* I : I FP0-9THENP0-8 G0T063ELSE63ELSES3 

c,7 B-'.rSPr 13*13) F0PI-1T09 F0RJ-1T059 NEVT t~ t*r".t*rv*>t' PEFV( POt I > 
) "• ' NEXT 

68 IFMMt.rtfi«THENKU=l FOPI-tTOlP FOPJ-1 T08 ■ POr-EPCr J >, 32 'NEXT B-US 
RC3) FOP.l-lT08POfEP0' J>flSC'nlD»rl*l». J-lll NEXT ■■ B-iJSRr 3 > NEXT C 
0T073 

69 F0PI»1T08' IFM![)<'MM«, 1,1 >»M!DtrMR». 1 . 1 >THEMPt-Pt*"t-EL' : ;EPII-P 
I»+" " 

79 NEXTPI-RJ.RH Rlt-"" F0P>1T08 PC I wftSC' MIM< W1*. I ■ 1 > VNEXT 

71 B-LtSP<3999VP0-EnP,PO'l'> P0KE0P*4,PW2> P0KE0P*S.P0'3) P0"E0P 
*64.P«4><P0KE0Pe7Z,F1X33 P0"E0P*128.PO'6 ^ P0*E0P*132.P0<7> POTE 
0F-H36.PO'8> FOFI-1T08 PO' I >-RSC1ID*'P».I . 1 "NEXT >9 F0R1-0*" 
192T0O°*2B9 J-J*l PO'EI .PWJ> NEXT.P*"*" 

72 P0-1X0T062 

73 C2"4NX27>63 1FMH=1THENPRINTI»?71 . "Lft TEOOWDE " T.if CHRS'C? '. 
■VV-32 WE-C2ELSE003U576 F0RI-1T05 G0SIJB77 POVEPry I \ ftSC'MIM''MM 
-I.niNEXT F0Ri-gT0399'NEXT F0»i-239PT0i83eSTEP-)8 MJ8KI) HEX 
T.PPINTe963."LR SECONOE " TF*, WE-63 W-S3 

74 0OTO78 

73 IFPCK9)«3THEN0P-15153 PETl.WCELSEPETl.lRN 

76 FORI*205BTO21W B^JSJKD'HEXT FrjPl-lTOB POfEPry I >.32NEXT FnP 
I"1TO309^NEXT PFTIJRN 

77 FORID=1T019 POKEPOM ) .42 B-lJ?P' 390 V P0KEP0< I >.32' NEXT ■ RETUPN 

78 V«l B"'JSP f 8099' TP«8 PI- ,, -'«W-9 U-I9 ■ PO-P PO' )-9' !««-""' HH«- 
■" G05'JB12SG0S'.iB132 Y«-"t»t TPOISIEUE ETftPE *t*-.GOSi.iBl€7 

7? I2-140PPiNTi?131- , 'Et enfin. vous dever resister Pendant d*ux 

i tro is minutes > me* missile* 'JU3. . . Pour cela. 11 vou* flu 

t tous les detrui--re en utlliMnt les 4u»tre* to^jebes flecbees 

on PFIHTPPINTPRIHT" Si vous reussissei. vo-.'» connaltrez la a»r 
niere et Plus import — »nte P'rtie du code. C'est-«-dlre, celte 1 
vi vou* Permettr* de tirer sur woi et de Pie tuer III"! 

YF-16PXF-31 G0SUB196 PRINT(>972."f! vou? ETE? PPET , -iB«> 
81 IK=1904 G0SOP292 00S0B296 B-UOP' 700? ^ F0PI-153S9T0I58BOSTEP64 
PWEI.191' POKE 1*4. 191 NEXT PRINTi?384. i 

52 print' ccrrcrcrcrtcrtrcrccErrccrrrrrccrcrrrcErtcrttrctccccctCE 

CCCCECECE" = 
83 PRINT 

94 print TccrcrrcrrtcrccrrccrrcrcErrcrrcrctrttrrrrEctrcctcrctccc 
crrrcrEtc". 

53 F0PI-13?91Tni6329STEP64P01'EI.191 P0KEI*4 . 191 'NEXT POXE13830. 
140 POKE 13839. 191 POKE 15849, 140 12-149 FOPI-I TO 1309 ■ NEXT 

S6 GOT 098 

87 DR-PNOMi TP-TP-1 IFDP-lTHPJO-15327 ■ OR- 13839' 1 1-131 ' 13-17*' 17 
-128'I6»64EL?EIFPP-2THEHP»1386? OR-13839' 17— V' 16— 1EL^EIF0P-3TH 
EHP*16331 08-15939 11-176 13-131 ■ 17 — 128 ■ 16— 64ELSElPr-P«4THEHD-l 
5S99 DR-13838I7-V:I6-1 

88 J-D 

89 0-D*I7'n-INKEYi'IFfl<)""THENI>-J'G0T096 

90 IFr>-pRTHE>'94EL?EtFTP-159THEN190ELSEIFTP-39THEN'..'-3 U--.0eLSEIFT 
P»75THENV-6-U-199 ELSEIFTP-n3THENV-lO-'J-i39 

91 IFDPO2RN00PO4THENP0KED. II ■ B-U?P f 1 9900 >■ POKEP. 12 ■ POKED. 13 ' PO 
KE0.32 G0T093 

92 B-USRf 296 1 POKED- 1 7, 32 MJSRC 289 ) i POKED .149' 0OTO93 

93 IFD-J+I7THENF0RI-IT0U !'EXT.G0T039ELSE89 

94 IF0R-20R0P-4THENPOKEO-I7.32 

93 FORI-lT023PnKE15938.?2'P0KE15939.32 POKE 13840. 32 'B-U'iP' 3391 
P0KE15839-149 POKE13839- 191 POKE 15849. 149 B-USR' -32763) NEXT ■ TP- 
9' GOTO 108 



suite page 18 



PINGOUIN vie 20 



Dans ce jeu pour VIC 20 de base, vous etes un pauvre 
petit pingouin poursuivi par un affreux monstre sur la 
banquise, parsemee de flocons. Et c'est pas tout ga, 
en plus il faut manger! 

Didier REBUFFAT 

Mode d'emploi: 

Pour vous deplacer. servez-vous des touches "P" et"-;*pour aller en 

haut et en bas et des touches "L' et";". pour aller a gauche et a 

droite. Pour gagner des points il suffit de manger les poissons et, si 

vous y arnvez, a enfermer le monslre entre 4 glacons. Heureuse- 

ment pour vous, vous possedez une particulate bizarre. En effet, 

chaque fots que vous descendez ou montez, vous creez un glacon 

que vous pouvez ensuite, pousser. 

Mais attention, i! faudra manger les poissons par le cdle sinon, vous 

creerez un glacon qui detruira le poisson. Pour sortir, il faut plonger 

dans la mer en bas a droite 
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250 PPIHT-B B 

268 PRIHT"B B B B B B E B 
270 PRIHT"B B B B 
260 PPINT"B BB BB B B BB B 
290 PP.IHT"B BE B B 
39e PPINT-B B B B B 
318 PPIHT"B B BBB BBBE 
320 POKES 183- I POKEDM.m 
589 Pfi=DTX;POKESP.0 
591 PRINT"fl".PT 

305 OETM* IFMJ<>" ,, THEH2000 

306 IFPEEK<PtX) + l>»2ftHDPEEK':P(XJ-l>-2RHDPEEK<P'.Xj*22>-2 
RNBPEEKCP':x>-22>»2THENGO5iJB38880 

310 HV-INTrPHD'TI r*'l>+% 

515 IFDfi-220PDfl=-22THEN0=l OOTO550 

528 IFDR-10PDR--1THEN0=22 G0T053** 

350 IFNV-8THEH1009 

360 IFHV=lTHENDR-0 OOTO1000 

578 IFNV=2THEIirje=-0 GOTO1900 

1080 IFPEEK(P'X>*Dfij-2THEHDft—Dft OOTO500 

1018 IFP(X»7782ftilDP'i<)<S164THEH1018 

1011 IFP'X>-7690THEHPOKEP'X'.HF P'X)-8174 QOTO1019 
1014 IFP'Xj=B175TNENprjKEP(X>.MF P<XW691 O0T01816 
1813 DR— 22 OOTO1019 
1816 Dfl-22 00T01819 
1818 P0k-EP f :<'. 32 

1019 lFPEEr<P'X.>tDfl,.nftTHEM3000 

1828 IFPEErrpfXj+Dfl/»4THEMP<X>-P<X>+DH POK.EP'Xi.4 OOTO300 
1823 Z-IHT(PNDa>f2)*0 P0Ke<P<X)*llfl>/Z:P0KE8P-2W D<X)" 

DR^PC>:?"P'.X;*Dft GOTO590 
1110 00TO398 
1140 FOREP-I5TO0STEP-1 
1150 OOTOI0 
2900 IFPEEK^20-3>"l3THEHCD*-22 POK.EDM-22. 32 ■POKEDH-44.2 

OOTO2100 
2810 IFPEEK'293'-37THEMCD-22 P0KEDM*22.32 P0KEDt1*44.2 
OOTO210B 

2029 1FPEEK'293-=21THEHCD— 1 OOTO2100 

2030 IFPEEK'203'-22rMENCD*l OOTO2100 
2050 OOTO300 

2)00 IFPEF.r'rjM+CIi.>»2THEIISOT 

2101 IFPEEK'203f"2lRHr)PEEK^BI1-l --5THEHPT-Pr*10 P0tCEDM-l.32 

2182 IFPEEK'203^-22MNDPEEK'rDM*H-5THEHPT-PT*10 P0KEDM*1.32 

2103 IFDM*22-B178GOTO20000 

2103 DH-DH*CD 

2110 IFPEEKfDt1'-0OPPEEK':DM^tTMEil5000 



ERRATUM sur VIC 20 

VIC FUTE du n" 50: 

Les lignes 210 et 220 etaient 

superposees, les voici deperpo- 



21M OOTO2150 

2130 IFPEEK'Dri'=3rHEHP0KE'Bn-CD>32 00T01128 

2140 IFPEEKCDr1>=4THENPT»PT-2 

215S POKEtin-CB-32 POKED". MR OOTO500 

2289 IFrjn=7690THEHPOKEDM,PB DI1-8132 00T02119 

2210 IFBrW6?lTHEIIP0KEDri,PB DM-8153 G0T02I19 

2220 IFIiri'8174THEHP0KEDf1,PB DM = 7712 G0T02118 

2230 IFDM=3I75THEIIP0KED[1.PB BM-7713 G0T02119 

2235 P0KE36878.15 

2248 GOTO580 

3P0O P0KEBI1-4 POKE<DM-UR>.MF FORT-0TO235 P0KE36876.T NEXT 

:POKE36876.0 HVNV-1 
5005 POKE3S369.240 
5O10 GOTO3050 
3038 IFIIV-8THEN3038 

5840 FORV"1TO1000 NEXT P0KE36869.255 00 TO 10 
5959 PPINT"n«*M-.TjULEr. VOUS K'EJOUER 7 0/H?" 

5060 GETCHf 
5870 IFCHS-"0 M THEN1 

5880 IFCH»""lt"THE'IPPIItT".1SDaiII»ME0HMRGE i " Ellti 
5090 OOTO3060 
3100 00T05938 
10009 P0KE36869.23S 
10001 P0KE32-28 P0KE36.28 CLP 

10019 FOPOO-7168T07168*511 POKEOO.PEEK<OO*25600J MEXTQO 

10020 F0PQO-7168T07168*-47 

10039 PEPBF POKEOQ.F HEXT 00T05 

10040 DfHTR24.60.36- 118- 126, 126. 126-62 
10043 BRTft24,60. 106. 1)8. 126. 126.126< 62 
10030 DRTR126.129.189. 163.165.189.129.126 
10968 I1RTH24.36.253.231. 163.165.60.192 
18078 DflTR0.0-0.48.24.36. 169. 126 

10088 DRTR8- 12. 138. 123. 127, 138.8.0 

20008 PPtHT"«l<fflW»»tBPfiVO'VOUS RVEZ REUS3I RVEC'.PT, 

"POINTS" 
20810 WRIT633.1 
20020 OOTO3930 
39899 PT=PT*109 F0RT-9T0233 P0KEJ6876-T NEXT FOPT-233 

TO0STEP-1 PDKE36376.T NEXT 
38003 POKE36876.0 P(X)"7888 
■UiMO RETURN 

48000 pPiHT'TJiwiniimBmMtiMPntriOuiNi' 1 

49911 PRINT , '»W«nTRPEZ SUR'SMIFT'POUR CONTINUER" 

49013 URIT653. 1 u 

40029 RETURN " 



TOUTANCARTON 



Et si les pyramides Gtaient en Ecossg? Elles seraient 
hantees, bien sur... Les fantdmes et les momies se 
castagneraient sec! Et c'est bien ce qui arrive... 
Compatible ORIC 1 ATMOS 



Modo d'emploi: Vous &tos le tantdme on haut de la pyramide Vous 
pouvez descendre avec la barre despace el vous dinger a gauche 
et a droite a latde des Heches. Si vous sortez de la py/amide par un 
cote, vous etes ramene en haut. II lain passer sur tous les cubes en 
evitnnt les momies. puis sauter dans la barque qui remonte la ri- 
viere. Mais vous n'avez pas le droit de remonter autrement que par 

Christophe LAYUS les cotes. 




i rem iit«uum*»n» 

2 REM * TQUTANCARTQN « 

3 REM *i****ii********»* 

4 REM 

3 REM B-.' Christ op he LRYUS 

* REM 

7 REM xxx«X*IlXtXXXX***l 

8 REM 

10 CLS PAPEP9 INK 3 PRINT CHR»<20>;CM 
P«<6).CHR»< 17>. 
15 FOR I-7TQ 8 PLOT 19. I. 1 PL0T11. I. 19 
PL0T12. I - "TOUTANCARTON" 

29 PLOTS. I. 12 PL0T9.I."X"'PL0T26,I."X 
■ PL0T24-I.3 PL0T23.I.I2 NEXT I 

23 FOR I-STO 9STEP 3 PLOT?, I , 12 PL0T9 
I imitmiuiiun NEXT I 

30 PLOTS, 23. 7 PL0T7.23, "Pr-«»*«Z uf.» t 
oyche SVP. • 

33 Gosusieee 

46 GOSUB 10000 GOSUB19090 G0SU8191 10 

30 fl»"KEY« IF fl«-""THEN 40 

60 PLHY0. 0,0,0 

100 PIMTC 19, 8> Bf«"UV" 

103 Cl-19 C2-3 S-0 M0"4 V-.5 

110 N-14 X-3 T< 10,0)-7 

120 FOR Y-8T0 1STEP -1 

130 T(X-2,Y>-4T<X-1.Y>-1 

140 FOR I-XTO X+N T< I , Y )-3 NEXT I 

130 T< I,Y>-2 T( I*1,Y>»6 

160 X»X*1 N-N-2 

179 NEXT Y 

lee Gosueiiee 

190 X-10 Y»0 LX-X LY-Y.8*»CHR»U6H"U 
V*CHR»< 16> XB-39 NO-64 

191 B2«-CHR*< 16) B2*«B2«+82»*B2» PLOT 
12.4, 12 PL0T13,4,"TAPE2 UHE TOUCHE" 

192 X<1 W X(2)»13=Y(1 >»7 "YC2>-7 

193 LX<1>-6LX<2>-13 LY( 1 W LY<2>-7 

194 PLRY9, 0,0.0 GOSUB 420 G0SU8 10300 
193 PL0T11,4,I GETA* GETft* PLOTll.4,0 
GOTO201 

200 R»-KEY» IF fl«»""THEN N-4 : CO5'JBe60 
GOTO230 

201 R-ASCCA«MF Y-9THEN 284 

202 IF R-8THEN X-X-I ' IFT(X, Y7-4THEN D 
X- 1 COS1JB330 GOTO 620 

203 IF B-9THEN X*X+l IF T<X,Y>-6THEN 
DX— 1 i COSUB330 GOTO 620 

204 IF H-32TMEN Y-Y+l IF YJ8THEN 700 
206 S-S*20''V G0SU6Q83 

210 IF T<X,Y?-3THEN T< X, Y>-3 S-S+30/V 

NO-HO-1 IF NO-0THEN 1700 

213 IF T(X,Y)-ITHEN A-8GOT0 202 

216 IF T<X,Y>-2THEN A«9'G0T0 202 

217 IF SCRtK2XX-l,2*Y*3>-87 THEN 1400 
228 PLRY1.0,0.8'GOSU8420.K-«+l i IF K>2 

THEN K-0 

238 PLRY0, 0,0,0 £OSUB810'GOSue910 GOS 
U8810 

240 GOTO 200 

290 REM 

308 COTO290 

429 PL0T2XLX-1,2*LY*3,"MN" 

423 PL0T2*LX-1,2*LY*6. "0P"N-1 MUSIC1 
.4.3-K.15 GOSUB060 

438 PL0T2XLX-1,2XLY+3,"IJ" 

433 PL0T2«LX-1,2*LY+6,"K.L" 

440 ON TCLX,LY)GOSUe319,320.339,340.3 
30,340,349 N-1^MIJ3IC1, 4, 6-K, 13 ^G0SUe86 


430 PLOT2*X-l,2»Y+3,"IJ" 

433 PL0T2*X-1,2*Y*6,"KL"'N-1 MU8IC1.4 
.18-K.13 GOSU6860 

460 PL0T2XX-1,2XY*3,"MN" 

463 PL0T2»X-1,2XY*6,"0P"'H»1 MUSIC1.4 
.3-K.13 G05IJ6968 

479 PLQT2XX-1.2*Y+3."IJ" 

475 PL0T2XX- 1 , 2XY »6 , "KL " ' LX-X " LY«Y 

490 PLAV9,9,9.9 RETURH 

599 REM X*****.****************** 

391 REM PEAFF. HPRES PASSAGE 

303 REM ************************ 

519 PL0T2XLX-I.2XLY+3.16 
311 PL0T2*LX,2*LY+3,C1 

512 PL0T2XLX-1,2XLY*6,C1 

513 PL0T2*LX.2XLY*6.U 

514 PETIJPH 

520 PL0T2XLX-1-2XLY+3.C1 
321 PL0T2XLX,2XLY*3.16 
522 PL0T2XLX-1.2XLY+6.C1 
323 PLGT2XLX.2XLY+6.C1 
524 RETURN 



339 PL0T2*LX-1.2*LY*5,"0R" 

331 PL0T2XLX-1.2XLY+6."ST" 

332 RETURN 

549 PL0T2XLX-1,2XLY*5.C2 
541 PL0T2XLX.2XLY+3.C2 

342 PL0T2XLX-1,2XLY*6.C2 

343 PL0T2XLX,2*LY*6,C2 
544 RETURN 

330 PL0T2XLX-1,2XLY*3,"AB" 

331 PL0T2XLX-1.2XLY+6. "CD" 

332 RETURN 

690 REM *tttxtt.rttit.tt tttr 

691 REM Ee>c«U*r cot» 

692 REM mmumniiht 

610 PL0T2XLX-I , 2XLY+5, 16- PL0T2*LX, 2XL 
Y+3,C2 

611 PL0T2*LX-1,2*LY»6,16'PL0T2*LX,2*L 
Y+6.C2 

629 PL0T2XX-1,2*Y*3. "U" ' PL0T2XX-1 ,2X 
Y*6 , "KL " i LX-X i LY-Y - PLRY 1.0,0,0 

630 X»X*OX/2'Y»Y-.3'MUSICl,4,ll-Y,15' 
GOSU8810 

649 IF X-9.50R X-I8.3THEH X-10'Y-8'PL 
AY0,0.0,0'GOTO299 
630 IF Y<0.3THEN X-I9' Y"9'G0T0 610 
660 N-2 C0SUB868G0TO 610 

700 REM t»ttlt»» 

701 REM RIVIERE 

702 REM XXXXXXXXXX* 

719 GOSUB 339 'S-S+599' RESTORE 'NB-9 
729 IF SCRN<XX2-1,23>-16 THEN 1379 

739 81«-CHR«< 16)+"IJ"+CHR«<16) 

740 PLRY1,0,0,0:FOP I-XBTO 2STEP -1 
750 PLOT 1 , 23 . Bi : PLOT 1 . 24 . B 1 • < N-4 ■ GOSU 

8860 

755 NB-NB*! 'REflONT = MUSIC1 , 3, NT, 15 = IF 
NB>14THEH RESTORE^N8-0 

769 NEXT I PLP.Y0, 0,0,0 

779 X-2'Y*7'X8-2 R-8 

780 B2«-CHRt< 16)' B2»-B2»*B2»*82I ' PLOT 
2, 24 , 82* ' PL0T2 , 25 , B2» 

783 PL0T2,24,B2«:PL0T2,2S,B2« 

790 GOTO 291 

791 OftTRl, 1.10, 10,8,6, 1,3,6,3, 1,3,3,8 
,6 

800 REM xxxxxxxxxt 

801 REM 8ARQUE 
002 REM xxxxxxxxxx 

810 XB-XB-IIF XB<2THEN XB-33 PL0T2,2 
3/B2» 
820 PL0TXB,23,8* 
830 RETURN 

839 REM t*** ************* 
931 REM TEMPORISRTION 
832 REM %%%*ttXXtt%XXtt%% 

869 FOP J-1T0 Ht39«V:NEXT 

870 RETURN 

899 REM *************** 

881 REM RFF. OU SCORE 

882 REM XXXXtXXXXXXXXXX 

883 S»"STR»<INT<S)>>S»-riI0«<S»,2) 
890 PL0T9-LEW S« ) , 1 , S» ' PL0T9-LEN< S* ) , 

2, S« ! RETURN 
999 REM XXt*X***X**S»Xt*t«X* 

991 REM 0. DES 2 MOWSTRES 

992 REM t* xx xxxxxxxxxx xx xxt xx. 
919 TT-8- 1-1*1 'IF I>2THEN 1-1 
914 D1-SCH<X-X< I))'D2-SGN'Y-Y< I >) 
913 IF TT-1TMEN 918 

916 IF I-2RN0 D109TMEN D2-0 

917 IF I-1RN0 02O9THEN DI-0 

918 X< I )-X< I )*D1 i Y( I )»Y< I )+02 
928 IF Y<I ))8THEN YC I )-8 

921 IF SCRM<2*X<I)-l,2XY(I)+5)»73 THE 
N1408 

922 IF KX<n,Y<I))-30R T<X< I ), Y< I ))- 
3THEN 959 

923 Xf I )-X( I )-2XDl iY< I )-Y< I J-2XD2 

924 IF Y( I)>8THEN Y< I )-8 

923 IF TCXf I).YCI))-50P T'WI>,Y(I))« 
3THEN 959 

926 X<.I)-X<I)*D1'Y<I)-Y<I)+D2'IF TT-9 
THEN TT-1'COTO 914 

939 LX< I )-X( I ) LY( I )-Y( 1 ) 

949 RETURH 

959 IF T<LX< I ),LY( I ))-3THEN 933 

951 PL0T2XLX< I )-l,2XLY< I )+5, "FIB" PLOT 
2XLX< I)-1,2XLY<I)*6,"CD" 

932 GOTO 969 
, 955 PL0T2XLX( I >- 1 , 2XLYC I )*5- "OP" i PLOT 
2XLXC I )-l .2XLYC I )+6, "ST" 

969 PL0T2XXf I )-l,2*Y< I >+3, "MX" PL0T2X 



XU)-l,2XY<;i)+6."YZ" 
970 GOTO 939 
1090 REM XXXXXXXXXXX* 

1991 REM DEF CHRR 
1892 REM XXXXXXXXXXXX 

1993 FOP I-1T0 lSREROR'NEXT 
1910 FOR I-47624T0 47831 
1929 READ fl POKE I,R 

1939 NEXT I 'RETURN 

1931 ORTR0.31, 16, 16,16, 16,16. 16,0,62, 
2,2,2,2,2,2 

1032 0RTR16, 16, 16, 16, 16, 16,31,0,2,2.2 
,2,2.2,62,9 

1033 ORTR9.0, 1 , 6,8,8,48, 0,0, 14, 34,2,0 
,0,1,6,0.9,9, 1,14,36,49,63 

1034 DRTR0.0, 14,40,0,0,62,48,1,2,3,3. 
13,13,13,13,48,40,56.56.62,62,62.62,13 

1033 0RTR13, 7, 7, 7, 3, 3- 1,62,62.60,69,6 
0,36,56,48,0,0,0.0,1,2,3,3,0.9,0,0 

1036 DRTR48,40,36,36,13,13,13, 13, 13,7 
,7.3,62,62,62,62,62,60,60,36,0,31,31 

1037 DRTR24,24,24,24,24,0,62,62,6,6-6 
,6,6,24,24,24,24,24,31,31,9,6,6,6,6,6 

1938 DRTR62,62.9,9,63,63,31,31,I3, 13, 
7,0,63,63,62,62.60,60,36 

1039 DRTR3. 3. 7, 1,63, 33, 47, 33, 32, 16.48 
,0,62,34,38,2,47,33,13,1,31,16,16-48 

1940 DRTR38,2,56,9,69,4,4,6 
1100 REM ******************** 
1181 REM RFFF. OU TRBLERU 
1102 PEM XtXXXXXXXXXXXXXXXXtX 
1110 L0RES1 

1120 FOR I-3T0 23<PL0T1,1,C2'NEXT I 

1138 N-4.X-17 

1140 FOR Y-7T0 22 

1150 FOR I-1TQ N'PL0TX»I,Y,C1 ! NEXT I 

1160 N-N+2'X-X-l 

1179 NEXT Y 

1189 FOR X-3T0 36'PL0TX,23,C1'NEXT X 

1190 X-19'N-l 

1200 FOR Y-7T0 21STEP 2 
1218 fl»-""'B»-"" 

1229 FOR I-1T0 H- R»-R«*-RB" '-8»-B*+"CD 
"'NEXT I 

1239 PLOTX,Y,P*'PLOTX,Y+l,Bt 

1240 X-X~2^N-N+2 
1259 NEXT Y 

1269 PLOT 1 , 24 , C2 PLOT 1 , 25. 2 ' PLOT 1 , 26, 
4 

1279 FOR I-2T0 36STEP 2 ' PL0TI,26, B EF" 
'NEXT I 

1288 PL0T9,9,B'PL0T1.8. 1 'PL0T4.9, "SCO 
RE HIGH-SCORE" 

1290 FOR 1-1 TO 2 

1399 PLOT0, 1,8 'PL0T1, I,2> PL0T2, 1,10' P 
LOT4,I,"0e9e0"PLOT18, I, "00009" 

1319 PL0T27,I,9'PL0T26,I,3 

1329 NEXT I 

1339 FOR I-29T0 29*3X< MO-2 )STEP 3'PLO 
TI,1,"IJ-'PL0TI,2,"KL"'NEXT I 

1349 HI«-MID*;STR«HI ), 2 )' PL0T23-LEN< 
HI*),1,HI«'PL0T23-LEN<HI«),2,HI« 

1339 RETURH 

1369 REM ********************* 

1361 REM CHUTTE ORNS L'ERU 

1362 REM XXXXXXXXXXXXXXXXXXXXX 

1370 PL0TX8,23,B2«'C«-CHR«< 16>+"GH" 

1371 X-2XX-2'PL0TX,24,C2<PL0TX.23,C2' 
PLOTX+1,24, "IJ" PL0TX*1,23,"KL" 

1389 FOP I-2T0 X^PL0TI,23,C« WR[Tt9'N 
EXT 

1 399 Ufl I T29 ■ PLOT 1 , 23 , B2» ' PLOT 1 . 24 , B2» 

1400 PEM **X**XX*X**J*XXXXXX*XX 

1401 REM UHE MOMIE CE MOINS 
1492 REM **X»*XX*X*X**XX***XXXX 
1419 MO-MO-1 IF M0-9THEN 1309 

1429 PL0T26+3XM0, 1. " " 'PL0T26+3XM0. 2 

1439 X-19'Y-9'PLRY1.0,9,9 

1449 MUSIC1,3,8,13'URIT13'MUSIC1,4,3, 
13'URIT13'MUSIC1,3,3,13'UFHT13 

1439 MUSIC 1,3, 12, 13 'WRIT 13 'MUSIC 1.3, 1 
,13'UfilT13'MUSICl,3,19,13>WRIT13 

1460 MUSIC1.3,8,13'MRIT30'PLRY9,0,0,0 

1470 GOTO 194 

1309 REM XXXXXXXXXXXXSXXXX 

1591 REM FIN DE PRRTIE 

1592 REM ***********.***** 
1510 PLRY1,0,0,0'FOR J-1T0 3 

1320 FOR 1-1090 TO3003TEP -3S0UN01.1 
.13 NEXT I 

1330 NEXT J 



0B\C1 
ATMOS 



1340 PLOT 13,4,-Vo>J5 »v»r P#r*j • 

1560 PLOT 11,4,C2 

1370 IF S<HI THEN 1629 

1390 PLOT 10, 6. C2. PLOT 1 1 -6,8' PL0T12. 
6. "Un r>o«v»»v record" FOR J-1T0 6 

1399 FOR I-390TO 1000STEP 6'S0"JM01,I, 
13 'NEXT I 

1600 NEXT J 

1619 HI-IHTCS) 

1629 PLflY0,0,0,0'PLOT9,25,8 PLOT10.23 
, "On »n refilt u.n* T" 

1630 fl»-KEY«'IF FM---THEN C-C+1-PL0T1 
0,6,C' IF 06THEN C-0 

1633 IF F*--o"THeN 105ELSE IF fl«<>"n" 
THEN 1630 

1640 PRIHT'PRINT CHR»< 20 )'PRIHT CHR« 
6)'PRIHT CHR«17) GOTO 20090 

1799 REM XXXXXXXXXXXXXXXXXtX 
1701 REM NOUVERU TRBLERU 
1792 REM XXXXXXXXXXXXXXXXXtX 
1795 ZAP ■ ZAP ' ZRP ' ZAP 

1718 IF C1017THEN 1769 
1715 ZRP i ZAP i ZAP ZAP ZRP ZRP ZRP ■ ZAP 
ZAP ' ZAP ' ZAP 
1729 FOR I-3T0 6' PL0T9, 1 ,7 ■ PL0T1, 1 , 14 

1739 PL0T9.I,"JE H'AI JAMAIS VU CA!" 

1740 HEXT I 

1 750 G0SU8 1 0000 ' GOSUB 1 0090 GOSUB 10119 
1760 IF KEY«-""THEN 1750 
1770 FOR I-3T0 6<PL0T2.I," 

"'NEXT.GOTO1340 
1788 IF C1-20THEN Cl-17 V-. 1 'C2-7 
1790 IF C1-19THEN CI»20' V-. 3 ' C2-6 

1800 GOTO 110 

10090 REM **»*****»****• 

10991 REM MIJSICMJES 

10992 REM XXXXXXXXXXXXXX 
19093 T-23'PLRY1,0,0,8 

19019 MUSICl.3,5, 13'WAIT T MUSIC1.3.8 
,15'HflIT T-MU8IC1,3,3,13'WAIT TX2>3 

19928 MUSICI,3,4,13'UAIT T'MUSIC1,3,3 
,15'HAIT T'MUSIC1,3,7,13'WAIT T 

19939 MUSIC1,3,8,13>WAIT 2XT'MUSIC1,3 
,5,13'MAIT 2XT'G0SUB1B199 

10040 M1JSIC1,3,3.13'UAIT T'MUSIC1,4,1 
, 13'UAIT T 

10939 MUSIC1, 4, 1. 13'UAIT TX2-'3-MUSlCl 
,4,3,14'HAIT T'MUSIC1,3, 12, 14URIT T 

19969 MUSIC1.3, 12, 13MAIT T MUSIC1,3. 
B, 13'WAIT T/2 

19970 MUSICl,3,19,t5'UAIT T'MUSICl.3, 
8, 13'WAIT T^2'MUSICI,3,8, 14HAIT T^2 

10989 MUSIC1,3,8,13'UAIT TX2 

19099 RETURN 

10100 PLAY0,0,0,0'FOR I-1T0 23'NEXT'P 
LAY1,0,0,9RETURN 

10110 PLAYl.9,9,9 

18129 MUS1C1,3,10,15UA1T T'MUSIC1,3, 
8.15WAIT TMUSICl-3.19,15'WflIT T 

19139 MUSIC1,3,8-I5'UAIT T=MU$1C1,3,1 
8,15'WAIT T'MUSICl, 3,8, 13'UAIT: T 

19149 M«JSIC1,3.12,15'UAIT THUSIC1.3, 
8,15'WAIT 2XTMUSIC1,3,3. I3UAIT 2XT 

10160 MIJS1C1. 3. 19, 13UAIT T'MUSIC1,3. 
8,13'UAIT T'MIJSIC1,3,19,13 WAIT T 

19170 MUSIC1,3,9,15 UAIT TMUSIC1.3.1 
0,15'UAIT TMUSIC1,3,8,15UAIT T 

19180 MUSIC1.4.3. 13'URIT T.MUSICL3.1 
2, 13'UAIT 2XT 

19199 MUSIC1,3,3, 13 WAIT TMUSICl.3,8 
,13'HAIT 3XT/2 

10290 MUSIC1, 3. 19,13 UAIT T'MUSIC1.3. 
8,13'UAIT T'MUSIC1.3,10,15'UAIT T 

19219 MUSIC1, 3, 8,15'WAIT T'MUSIC1,3,1 
9, 13'WAIT T'MUSIC1.3,8,13UAIT T 

10220 MUSIC1,3-12,15'UAIT T'MUSIC!.3, 
8,13'UAIT 2XT'MIJSIC1,3,3.13'UAIT 2XT 

10230 MUSIC1,3,8, 13 WAIT T'MUSIC1,3.3 
, 13'UAIT T'MUSICI,3,7,13^UAIT 3XT 

10240 MUSIC1,3,6,I3'WAIT T'MUSIC1,3.1 
9. 13WAIT 2XT'MIJSIC1, 3, 12, 13'UAIT 3XT/ 
2 

19239 MUSIC1, 3, 19, 13'UAIT TMUSIC1.3, 
8. 13'WAIT 2XT 

19260 RETURN 

10300 T-23PLAY1.0,0,9 

19319 MUSIC1,3,3,I5'UAITT'MUSIC1.3,8, 
13'UAITT'MUSIC1,3.12,13'WRITT 

19329 MUSIC1.4,3-13'WAIT1.3XTMUSIC1. 
3, I2,15'UAITT'MUSIC1,4,3,15'UAIT3XT 

10330 PLAY0,9,0,0'RETURN 

20999 END ■ 
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121 0-0*1 IF0-14iTHfnn-ei c-n T/-1 

12-1 PETIJPN 

!?:. PPI»T™?-,.rHPl'2n?l i 'FDUV-ITr)T5MEXT 6-U^P' 2^9 )■ PPINTrf25. -pOl 

irE OEFf, FOP^-lTni-.KEyr PPlllT»7Be.CMRI'2P4 ... FOPK-ll'nn .rt-vf 

rvWirW,,"*™* CHRMCE",.0-0*).!Fn.I7R!HF^.n IX-l 

126 RETUPM 

127 Frjpjr-irai FQ»J-n916T01-,999STEP3P0KEJ.131 B-'JSP' 380 '■ POKE 1 
7^ 2 r^' P ^ EJ ' 1?,fi " r>R ' 1W),pQ,fF1 " 9 "' :f ' W ^ T WXT RFTUPi'i 

128 E1»J-ITrw.F0Pl-lf,2t4T0K-jB9STFP-i PQKCM3I B-U'-.P' 408 ' PnKEie 
W.WP0KEM2 B-u^^wnvPOKEie-J^.we^yT r-fxr WTUMH 

129 FF-2 r:0^lJB2Bl ^[•IWnr'.'lMWKKVPr.ni.i/n ,^/r P0KE119 
Tc-?£ ™ E ^^' 17 " Pn " F1 '-" : " , '^'P0KEie2Ba.l79 l P0KE168eB,32 POVF 
1'.344,17RPOKE16132.32.POKE16216.32 P0KEie28e,12 P0*Eie344,32 



138 FC*I-163*4T0I3743STEP-68iPC*EI-l«e.F0RJ-lT0ie'ME)(T.P0KEI.32' 
HEXT.P0KE13«79.ieB.P0*;E15«79.32.PETUPH 

131 F0»j-lTOp.pr>'EW,14<S.pOKEBV.!61'8-USff< 3fW 1 ■ POKEW. 32> POCFBV. 
32 B-IJSP' 398 ) • W-W-DC 1 BV-0V-CO ' NEXT 1 PETUPN 

13? PPrHTHI8rr:HPX(217).F0P[-lT09.pFIMT.M€XT'PPlMTif9'»e. >0-ll'W>l 
eei8 BV-I6859'0C-62 

133 PBlHT1717,CMRtf 239)i178€, CMR*<22ei>»942, CMP*' 232)i 'FORK-IT02 
•A 1 NEXT CD-^6 1 TO^URni .RETURN 

134 PRiNT-cccrrctcrcrccEtcttCEcrc" 

133 PPIMTCMRff?!! >*E' 1 CHHf 213 )j "C" 

136 P»!NTCM»K2ll)-ttt[:rtECErEtrcCrCErCEEE- 

137 RETURN 

138 ft-IMKEYX. IFfl<>"0"TMEMPC«(E15796. 143' F0PI-1T028 1 NEXT •Ptyt\17 < *£ 
■ 32' FORI- 1T028' NEXT. r.nt0138ELSEPC*E 13796. 79.1-8' J- 1 7 < OTSUB2OT ■ YF 
-l92XF-36.r,r)Sl.lB196'F0t(I-lTrp»9.«XT.CL5'PPINTt8. . ' 8-USPf 8908 VG 
n t ?(7Rl]2.GO^UBU?.FOPl-lTrjl*MDf 1889 >*3988' NEXT r,fjsuei36 RETURN 

in r*PiNT»o.TRH'x,^ rrrrtrrrrcrrrtrrtc- 
1*8 PPiNTTflBcxzi-ECCCttrtcrcccctrc" 

141 pRTNTTRBf x?>-rrtcrcEcrcrccttcccctcc-' 

142 pPINTTnel•x^)"[rcr^ccctccrcct^EtrEtrEc■' 
M7 poiNTTRpf X7) Tcrcrrrrrcrrrrrrrrtrrtitr 
144 pprNTTRBrx7)rrtcttccrcErrccrctEiEcccr" 

143 PPlNTTH8'x7)trrrrrccrrfrrrrrcEtccct- 

146 PRrNTTBB'X2>"CECtCCEEEEErrtECCrErEEf 

147 pPiNTTRRrx/vrrrrrrcrtrcrrirrrrrr ■ 

148 ppintthb'xzi TCfrrtEccrcccErrct" 

149 printtrb' x^vrcrrrrrcrctrrtECttr" 

159 PPIMTTflB'yZvcETfcrCCEttrEtrEECC' 
151 PRINTTRB' X7 •TCtrrrCCtECECECCCrr ■■ 

132 ppinttrb' x? )"trccctcrccr[EcctctC" 

133 PP!NTTR8' , x2vccctrtcccrcErtr:rctr" 

154 ppinttrb'v?! rrcrttrttrrcttittrr" 

155 PETiJRN 



a suivre 



CGAO 



Ce programme vous permet de programmer, dans un 
nouveau langage, des graphiques haute resolution. 

Lionel PAQUIN 

Mettez vous en CAPS LOCK. St vous voule2 coserver un travail 

cMja edecrue. denwrez par GOTO 50. 

Menu 1: 6 options. 

Opton 3: donne acces au menu 2. 

Menu 2:Effacer: suppression d'une ligne et renurnerotation. 

Afoutiv : insertion dune ligne 

List donne aces a la deuxieme page (si Ton se irouve a la 

premiere page) et inversement 

Menu: revient au ter menu. 




N efface lecran. 

HOME recentre X et Y 

T* arg; trace a partir de X,Y sur "argument" points. 

TG a gauche, TO a droite, TH en haul. TB en bas. 

T* arg: deplace te curseur sur "argument" points. AG, AO, AH. AB. 

L trace une ligne entre X,Y et X + U. Y + J 

Programmation: permet d'inlroduire une nouvelle ligne de 

programme. 
Specification du langage CGAO: 

Toutes les instructions dorvent etre separees de leur argument par 
un blanc. 

Ouatre variables sont disponibles: 
XY: coordonnees du point courant (centrees au depart). 
VY: variables utilisateur {a au depart). 
Commanries: 



SPECTRUM 



C arg: trace un cercte de centre X.Y; de rayon argument 

X arg: affecte a X la valeur de l argument, (Idenhque avec Y. U et J) 

? X: effectue un input X (de meme avec Y.U.J) 

STP: stop en fin de programme. 

G arg: effectue un goto "argument'. 

1 condition: si la condition est vra*. passe a la ligne survante. sinon 

saute une ligne: 

ExempJe:l X= Y' 2 or U= 1 

2 STP 

3TD10 
I ne peut etre place aux lignes 37 ou 38 

REM: pour mettre un REM. mettie un espace puis le contenu du 
REM 

Pour plus de comprehension du programme, reportez-vous au listing 
et a lexecution. donnes en exemple. 



. PCO'iBHMM£ DC CONCEPTION 

.GoAt-rtlaUE A5SI=TE£ PhS 

.OODINRTtUP 

.LIONEL PAOUIN 19B4 

.wOTO 5« 

. INITIALISATION 

.PRESEMTAr ION 

.MENU PRINCIPAL. 

.LISTING 

. &OUi riENU 

.TE5T DE5 FONCTIONS 

.effaced 

.CREATION 

.TESTC 51 2 LIGNES APRES 



21». 
22«. 
251. 
I" 
396. 



.SOUS PROGRAMME LISTING 
ww. . .PROGRAMME EXECLH" ION 
542. .. INFORMATIONS PfiOC-CAMME 
547... PRINT 11 ECRIT EN BAS OE 

L ECRftN ET PBNDOMIZE USA 3*26 EF 

FACE LE 80S £•£ L ECRAN 
S63. . .CONTROLS SVNTAnE 
575. . . C I ^COMMANOE 
576. . .AR=ARGUHEWT S IL EXISTE 
72e...CRREUfl OE NOMBRE 
8fl* . . . STOP 

«*8...EPREUR CE STNTAXE 
998...8«EAn PAR TOUCHE - S~ 

3«v». . .A-JOUTER 



S REM 

7 REM , 

8 REM | 
10 REM 
12 PEM 
15 REM 

17 REM | FAIRE 1 

18 REM t 51 UOUS I 

• PROGRAMME 

19 REM t»»«»(lll»ltHlik 




20 REM 



LET 



30 REM I 

40 OIM I 

50 LEfT 
= "•■ LEfT 
OER 6 

52 REM | 

53 PEM 
53 PRINT FLASH 1 : "PftOCfMN 

AIPE A LA CONCEPTION". FLASl 

AS 10. FLASH I," GRAPHIwuE ' 

6-0 PRINT "ft P05SIBILITES 



- >2< INITIALISAT 

STING -- >4< EX 

i 5AUUEGARPE -- 



■-- >1< FIN 

ION -- >3 

E CUT ION - 

■6i LOAO" 

79 PRINT ■ENTREZ LE CMIFFRE 
UOULU 

75 REM 
7 7 REM 

80 LET RtsINKET*. IF R|("l" OR 
Af. 6* THEN CO TO 80 

90 PRIrfT Pt.AT 4 «UmL Pt,8, OWE 

5 Si wirtw— ■*■** " 

IF R«.."2" THEN GO TO 129 
105 INPUT FLASH 1." CONFIQMATIO 
I OPTION 2 •> - . LINE Cf: IF C» = " 
TmEN 6EEP .1,1 BEEP .2,3: RU 

.10 IF Cf="N" TMEN GO TO 50 
15 GO TO 105 

3« IF Rf*"l" THEN PRINT AT 17, 
'RU REUOIR ET FAITES ATTENTION 
NE PA5 FAIRE RUN. 
STOP 

130 IF R« = '-5" TMEN : INPUT "NOH 
"l CHRS.)";Z« SAVE Z« DATA P 

GO TO 50 

IF R*b-6" TMEN ■ INPUT "NOH 
L C"R5.i-.Z» LOAD Z» DATA P 
GO TO 59 

IF A«="4- THEN GO TO 500 
LS2 REM 

>7 REM 
_50 PAUSE 500 LET Z=l CL5 6 
OROER 5 FOR Fil TO IS 

•70 PRINT "> .F.TAB 9."- ";P«( 

IF INHEY»i"S" TMEN GO TO 1&5 
,80 NEXT F 

131 PEM 

133 REM 

135 AANOOMIZE USR 3423: PRINT a 
1: ">D< EFFACER. >H< M£NU.>L< LIST 
ING IP (PROGRAMMER. >A<AJOUTEA" 

190 PAUSE 

192 REM 

195 REM ' 

197 REM 

200 IF INKEY$ = -*H" TMEN GO TO 50 

205 IF INKEV»="L" AND Z < 20 THEN 

GO SUB 402 GO TO 135 

207 IF INK£Y»="L- AND Z > 19 THEN 

GO 5UB 405 GO TO 135 

210 IF INKE'/« = "P ■' TMEN GO TO 24 



211 IF INK£Y*a 
215 IF IHKCV«a 



219 REM 

22v* RAur .jr-iITF ' 
OUEL'.C LIGHE ~> 
225 IF Z 1 OR 



22B _ 

229 REM 

239 FOR M-Z TO 38 LET P*(HJ=P» 
iMtll BEEP -B01.M NEXT M: BEEP 

.004,50: GO SU8 400: GO TO 185 

240 RANDOMIZE USR 3438 INPUT " 
LIGNE 1 ";z 

- "(1 OR Z>38 TMEN GO TO 2 



245 IF 



49 

2S9 IHPUT "ENTREZ L ' INSTRUCT ION 

";P»CZI 

251 IF P$IZ,1> ■"!" I 
Z=33) TMEN PRINT HI 
" INSTRUCTION — I" 



D (Z=37 OR 

ERREuP LIG 
LET P«<- 



252 GO \ 
25* PAUSE 700. 
ND INKE"V«>=**0- " 
260 GO TO 135 

397 REM 

398 REM | 

399 REM 
408 IF Z<20 TME" GO TO 405 

402 CL5 ! LET Z=21. FOP F=29 TO 
33 PRINT ■•» ";F;TAB 9,"- - ';Ptl 

Fi : NEXT F RETURN 
495 CLS LET Z=l FOR F=l TO 1 

9 PRINT -, '^F.TAB 9,"- ",Pt<Fl 
RETURN 



NEXT F 
*99 REM 

500 REM 

501 REM 
510 FOR Z = l TO 290: N' 

OER 1; INK 0: PAPER 5 

540 FOR L=l TO 38 

541 REM 

542 REM | 



A" TMEN GO TO 30 
D" THEN GO TO 22 




CGPIE- 

T OR C*>"L - 
l" OR C*» 3 S" 

i 580 



OR CJ^ 



ON '■ ; L i " > 
TO 1909 

555 IF C«: 
N" OR Ct= "I 

then go ~ 

562 PEM 

563 REM . 

564 IF C*. 
TO 779 

565 IF C« = -'B" OR C»»~0" OR CSe' 1 
F- OR C» = '-K" OR C»=-H' OR C»»**0" 

OR C*='P" OR C»- ' OR C»»"R" O 
R C»="U" OP Cf--U- OR C«=-Z" TME 
N GO TO 959 

568 IF C»=" " TMEN GO TO 1000 

569 IF P$(L,H='*C' ANO P*i'L.3 T 
O I ='■ ' TMEN GO 

TO 948 

579 LET AR=UAL P«iL,3 TO ■ 
572 REM 

575 REM I 

576 REM | 

577 REM 

580 IF C$-'H- TMEN LET X=127 
ET ¥=87: GO TO 1090 

SS2 IF C«<>"L" THEN GO TO 599 

583 IF X»U<0 OR X+U)25S OR , .. 
OR YtJil75 THEN GO TO 750 

585 PLOT «,. DRAU U.Ji LET K : 
*U: LET V=v.J GO TO 1900 

600 IF C*='X" THEN LET V zRR ! 

TO 1000 

602 IF C*."Y 



L=AR-1 GO TO 1990 

-50 POINT Bl ERPEUR C^E NOMBRe 
LIGNE "L: SEEP i . iO LET I*L 
PhU;E 500 GO SUB 400 GO TO I** 

770 LET .2i0 LET ,2*0 LET Af 
P«lL .21 

775 IF A» C An; A* -"■ "^i. 
A**j-'0- ANO At H THEN GO TO V 
50 



696 IF C*i 
TO 1099 
699 IF CS= 

615 IF C»= 
629 IF C(= 



80R 1900 



625 IF C*=-N 



THEN LET Y=AR CO 

TMEN LET U*AR GO 

TMEN LET J»AR: CO 

THEN GO TO 700 

THEN GO TO 740 

THEN GO TO 900 

TMEN CLS CO TO 



-. "C" THEN GO TO 635 

628 IF X*AR>255 OR X-ARid OR Y» 
AR>175 OR Y-AR(0 TMEN GO TO 750 

630 CIRCLE X.Y.AR GO TO 1000 

635 IF C**"I" TMEN LET L =L « • NOT 

URL P«<L.3 TO II GO TO 1090 

709 LET C*=P««L,3i 

705 IF C%-'-- TMEN INPUT "X "•* 

707 IF CS = "V THEN INPUT , " . i 

799 IF C« = "U" TMEN INPUT *'U " . U 

711 IF C|»"J" THEN INPUT "J ",J 

712 GO TO 1900 
719 REM 



ET . J afl 


















LET 




















T .2 










































GO TO 






















610 






DRMJ •.; . , a 
















GO TO 
















898 


;-■:■-■ ■ 










REM 


















Z UNE TOVCHE* 


PAUSE & 


j 70 i : 


9*8 


REM ■ 




































9 LET Z 


L GO sue 4 












997 


REM 










REM ■ 
























. -BREAK " .L. " 


































































































I SEEP .0( 


















GO SUB 


400 


CO TO 185 





HEN COPY 



DELOSATTAQUE to 7 



ERRATUM sur TO 7 

WAR BLOCK du n" 50: 
Une ligne a ete effacee: 
40100 0$ = CHRS (8) + CH$ 
+ 6R$ (5). 



Les habitants de la planete Delos attaquent la Terre. 
Le combat se deroule au dessus de la mer mais pre- 
nez garde aux lasers, destructeurs d'energie. 
Le mode d'emploi est dans le programme. 

Uonel ROUVAREL 

Si vous ne possedez pas de joystick, rempfacez les lignes suivan- 

tes: 

1020 S$ = INKEYS 

1025 IF S$ = ~U' THEN IF A< 34 THEN A = A+ 1. 

1030 IF SS = 'B* THEN IF A >1 THEN A = A - 1 

1035 IF SS = -Z* THEN 1532 

i -POUV&PEL LIOKEL, 2 PUE OES OLIVIEPS 

3447A PEPOLS /— SUP T07 CE THOrtSClM — 
- NOH W PPOGPAKHE I OELOS ATTAOUES 

2 CLEAP, , I : 

3 COT0288fl:LOCftTE9,9,9 

4 S-e:CS>33:aZ<IMT'PMC*!&'*i:>' = 312:&-l7: 

rj«e:scpEE«e,B,a 

5 LM»INT<PHD«37--l:HA^B 
19 CLS 

15 ' DE3SIH3 

16 LOCATE I,23,9:C0L0P1.8:PPI«T-EMEPC1E 
->*:CDLOP9,0 

36 C>EFCPf(e>-0,2,2,2,3,2,2,8 
32 l>EFCPf < 9 > -8, 9, 8, 9, 32 . 24 1 , 25 1 , 255 
35 t>EFGPS(5> = 84, 139,63,4 1,264, IS, 148, 36 
49 DEFCPI' 1/^24, 1h, 66, 66, I 65, 24, 36, 3', 
45 DErCP«<6/-16,I29,9,I,fr4.Ifc,M.4 
58 tiEFCPf(2>-9,64,64,ft4, 192,64,64,8 
55 bEFCPt<4>-8,0,69,69, 126, 126, 153,9 
69 DEFCPt<3>-e,9,9,9,24,e,24,e 

61 C0L0R6,e:LI« ■ , B,2e--<49,28<(,P*'S. 

62 IF TY=-1 AMD C=2 IMEM TY»TY»I7 

63 LOCATE 2,21,8:COL0P2,9 

64 IF TY—I AND G-3 THEM TY-TYH2 

65 A*-CP»(8J»CPfMyCRf(2> 

67 IF TY*-1 AND C= I THEM TY=2B 

68 IF D>9 THEN PPINTA(*A«*AI 

69 IF r>«5 THEN PRINTAOAf*" 

71 C0L0P3,9:IF D=10 THEM PP1NIAI.* 

72 IF 0-15 THEM PRINT* 

73 IF D«29 THEM PLAY'03L 1BA1 DODOPEPELAFA 
PELALBSISIPEDrjL96D0-:C0T019e8 

74 LOCATE I2,22,8iC0L0P4,9:PPIMT"9 15 

39 45 69 — ' 

75 LIME <29,178)-<83,I78),1 
77 LOCATE I2,23,8=C0LOP7,8 
79 PRINT* " > . i ' •■ 

196 ' BOUCLE 

105 ' PRINCIPALS 

166 COLOP6,8:P5ET'168,I99':PSET<6e,60>:P 
SEK170, l29>:C0LOP4,6:P3ET<188,49)tPS£T( 
£48,91>:PSET':30,I39>:COLrjP6,6:PSET<306, 7 




161 RE'IMTfRND*1968/' COULEUP-SOUCO- 

162 IF PE'598 THEM U=S 

163 IF RE>590 THEM U=3 

164 C0L0PU,9 

165 If 0S<4 THEM C0L0P6,6'— PNO-LAZER- 

166 IF 0S<3 THEN AZ-INT(RNDI18>*i: IF '-.: 
4 THEN 166 

167 IF gS'3 THEM 03=38 
170 IF &-D*5 THEM 61 



139 OS=OS-I 

182 LOCATEOS,AZ,0:PPINTGP*(4v»* * 

184 J-INT(PMD<I/«30B>;IF J>255 THEH186EL 

9E1019 

136 K'K-B' LA2EP 

188 IF K<16 THEN r.*3lt> 

265 IF 'K/8J-2--A OP <K'8>-3-A OR (KV3>-1 

=U THEM PLA7-02L18&OPE&0- 

2IB ZZ-ZZ-2 

228 LIME (K,10B>-(*f,159'-7 

238 LIME 'r,iee>-'K,l59>,8 

248 LIME '199, 195>-<3I9,195),6!LIME<I98, 

I96i-(319,I96>,9 

241 PLAY-O2L9D0L1ID0* 

242 IF 'K/3)-2=A OR (K/8)-3-A OR (K/8J-1 

*A THEN D-0*5'-— SOUCO— LA2ER 

244 IF 'K/8>-2=A OR <K^9)-3«A OR (K^8)-l 
>A THEM GOTO 61 

250 IF ZZ<163 THEM D = D*t-iIF D = 29 THEN PL 
AY-O3L10AlOOi>Ci;iDl'jSIPELMFArA31PEPEFiiFAt.O 
3ISIS0L96S0* 

251 IF ZZ<183 THEN I960 
269 LINE '109,m>-'ZZ,195>,3 
261 LINE M88,196>-''ZZ,I96>,3 
748 LOCATE OS, AZ.01PPIMT' • 

1090 ' MOUVEHEMT 

1093 ' ™ SU-VA1S8EAU " 

1919 C0L0P2,8JL0CATE A,I9,0:PPIMT ■ -*GR 

*.0,.GP*'l >'GP('2>** " 

1929 ST«STIC*<8; 

1925 IF 3T-7 OP ST-=3 THEN 1838 EL3E1590 

1339 IF 3T-7 THEN IF A/ 1 THEN A-A- I 

1835 IF 3T-3 THEM IF A'34 THEM A-AH 

1838 LOCATEA-i. I9,01PPIMT* * *CPI' 6 / •r.PI 

(I t»CRt<2>*" * 

1848 LOCATE A»I, ] 8, 0; COL0P3, 9: PP INT " • «C 

R»<3)+* "iCOL0R2,6 

I '-90 -TIP " 

1583 ' DU-VAISSEBU 

1519 3Ti-9lSTI»STP!G<e> 

1515 LOCATEO3,AZ,0:CrjLOPU.8! 1FO8<0 IHEN6 

HPRIMTGR«(4) 

1529 If 3T1--1 THEN 1532 

1539 GOTO 168 

1532 LOCATEOS,6Z,81COLORH,0!PPIMTCP«'4,I 

: IFOSM THEN6I 

1333 IF ZZ<186 THEN 1988 

1334 ZZ"Z2-.3:LIHE < 1 89, 1 93. -<ZZ, 193> , 3! 
L1NE(199,196)-<ZZ,196).3HF 2Z<118 THEM 
PLAY'DOREDOREOORE* 

1336 LOCATE 26,9,8iC0LOP3,9iPRIMT*BALLES 



1537 IF TY—I THEN 0=D»5 : PLAY'03L 10DO3I * 
IC0T061 

1543 LOCATE 28, I , 0:PRIMTTY 

1544 L-19:PLAY*SI8* 

1545 PRINT CR*(3>:COL0R3,B 

1558 L-L-1ICOLOR3.8SL0CATE A.2,L,8 

1533 PRINT GR><3> 

1568 LOCATE A»2,L,8:PRIMT* - 

1370 IF L<3 THEM PLAY*01LSDOI*: IF L;3 TH 

EN 189 

1573 IF 0S"A*2 AMD L-AZ THEN 1788 

1578 IF BS<2 THEM LOCATEOS, AZ, 9: PR1 NT" * 

1686 IF 0S<1 THEM LOCBTEOS, AZ, 8: PPINT* ' 

1639 GOTO 1539 

1700 ' TOUCHEP-LA-- 

1783 ' CIBLE 

1718 PLAV02L19SIPESI- 

1715 ZZ-ZZ»18 

1717 TY-TY*1 

1729 IF H-5 THEN S-S»221 

1722 IF H-3 THEN S-S*314 

1723 LOCATE 5, 1 IATTR89, 1 : C0L0P2. 9( PP INT ■ 
SCORE! *:ATTRB8,8 

1725 ATTRBI,l=COL0R2.8:L0CAtE ll.I=PPiNT 

SJATTRB0,8 

1739 C0L0R1,8!L0CATE 23, I , 8:PRIMTT Y 

1732 LINE <Z2,I95)-'3I9, 1931,8 

1733 IF ZZ<!83 THEN 253 

1734 ZZ-ZZ-.5SLINE ' 199, 195)-<ZZ. 1 95 i . 3: 
LINE(I98,196>-<ZZ, 196), 3: 0-7 

1735 rORI-ITO7:PLAY-OIL5^O•!COLORU,0:LOC 
ATE0S,AZ,9;PP1NT' ■ 

1736 L0CATE0S,AZ,8:PPlNTr,P|.4-!ME>!TI 
1738 fOPI"lT014!0-0-l: If 0< I THEM 0«7 
1748 COLDRO,0:LOCATEOS.A2.9:PPIMTCR*'5' 
1745 MEXTI=LOCATEOS,AZ,0;PPIMT- ■ 

1388 FOPi'l T918!C0L0ftM.8:L0CATEO3,Mr,8i 
PRINTGRI(6>:L0CATE03,AZ,8:PPINT- ■ 

1918 NEXTI:CS»39 
1868 AZ"INT<RME>«18>*1 
1983 IF «Z<4 THEN 1988 
1898 GOTO 61 

1893 * REJOUER-7 

1897 ' OUI--OU--HON 

1909 DEfCR»<9>-6, 133, 161,73.84,36,32.32 

1981 B0XF(6, 167)-'319,175.,6:TT--3 

1982 Tr-TT«3Uf TT>38 THEN C0T01994 

1983 ATTPBl,i:C0LOPl,8:LOC«T£ TT,19.6!PP 
INTCR«(9)»* -:C0T0I992 

1984 LOCATE 8, 4, 8: PPIMI "DELOS A GACHE LA 
TEPRE EST EM FEU... B U BUM* 

1995 FOPT=1TO2808:NEXTT:CLS 

1968 L0CATE6, 4, 8>C0L0R6.I! AT TRB1. I iPPINI 

■VOULEZ-VOUS REJOUEP* 

1989 L0CATE4,15,9!COLOPl,8Jlf Z2 

N PPINT'PLUS D'ENCRCIE...*;PLAY-fllL1201C' 

ODODQSIOOSILA80SO" 

1919 C0L0R4,6tL0CATE6,6,8fINPUT*0UI-O / 
NON-M-)D» 

1929 PLAY*D003L18Al[ l r|PEP[:i"J' 3 |3ILASOFHfOF 

.■.- J IPEPEREOOL9600*HF 0*-*C- THEN3888 

1921 If t>|.*M* THEN PRINT *ALt R€VOIP*!EM 

D 

1924 PLAY'03LI8D00000* 

1923 ir*>*O"0* OR DtO-M- THEN CLSiGOTOl 

998 

1938 ' PRESEMTATION — 



2886 t.r-t>r*/JLiNE (i39,e>-cr*F,«j, aeilin 

E <DF,99)-<Df . !30).AE:LINE<[>r.I38>-' 198. 
i99),AE = LIME<DF. 130 '-'219. 199>,AEi IF Dr> 
319 THEN 2818 
2807 COTO 2885 

2010 ATTR81,1lL0CflTEll,3:COL0R6,4lPRINf 
• DELOS •* • 
2020 LOCATE 6,1 
2838 ATTRB8, HI 
-CREATlOMl- 
2849 LOCATE 18. 1 4 : C0L0R2, Bl PR IMT *L l or.*l 
ROUVAREL" 

2838 fORI=ITO3900!NEXI [:ATTPB0,0 
2499 SCREEMB,fl,8:CL3 
2508 COLOR0.3:PRINT-PEGLE DU JEU* 
2510 BOX <8,16>-(319,158).5:B0Xi9,l53)-> 
238, 183), 5 

2313 FORI-lT098tLrXATE9,e,8 
2329 LOCATE 1.31C0L0P 6, 4: PP I HI -POUP ALL 
ER A DROITE OU A GAUCHE 

2538 LOCATE I , 5t PRINT "SE SERVIR DE LA HA 
NETTE DE JEU " 

2549 LOCATE!. 7iPR!NT*PQUR TIPER APPUYEZ 
SUR 'ACTION'* 

2556 LOCATEl,9:C0L0Pl,7!PPlNT-« VOUS 
DISPOSEZ DE 4 VAISSEAUX f 
'2569 L0CflTEl.ll!C0L0R2,8iPRIMT*SI VOUS M 
'OVEZ PLUS DE 8ALLES J * 
.2579 LOCATE 1, 12:PRINT*V0US PERDEZ UM VA 
I3SEAU ■ 
.2571 L0CATE1,15!PRINTC0NIRE LE NOrtBPE D 
E BALLES* 
2372 LOCATE], 16:PRIHT-C0PRESP0NDAM1 A LA 

fORCE CHOISIE" 
2575 L0CATE1.28,8:PPINT-UNE CIBLE ROSE > 

221 POINTS* 
2376 L0CATE1.21.6tPPlNT*UNE CIBLE JAUME- 

314 POINTS' 
2589 L0CATEl,13lPRIMT'( SI IL VOUS EN RE 
STE UN ...) 
2599 NEXT I 

2688 CLStSCREENB.0:ATTRB8. I 
2683 FOR 1-1 T038 

2618 L0CATE8,2IPP1MT*NE PAS 0U8L1ER OUE" 
2628 SCREEN3,4,4!L0CrtTE4,6.8lPfiIHT"VOTRE 

ENEPGIE EST LIMITEE...* 
2638 LOCATE8.I0,0iPRINr-SI LE LA2ER VOUS 

TOUCHE VOUS PERDEZ UN VAISSEAU* 
2649 L0CATE8, i 7,6' PRINT*SI LA CIBLE EST 
TOUCHEE ELLE VOUS DONNE SON ENERGIE ET V 
OUS NE PERDEZ PAS DE 8ALLE* 
2780 NEXT I 

3889 CLSiSCREEN6,6,6:ATTRB9. H LOCATE 1 3,1 
8,e:C0L0P3,6iPRINTTORCE- 
3995 LOCATE IB, 1.91C0L0RI , 6iPRINT*APPUYE 
Z SUR 1,2 OU 3 * 
3986 PRINT'FORCE CHOISIE, PUIS APPUYEZ S 



UR ' 



ITPEE' 



1931 



-ET- 



1952 * EXPLICATIONS 

2898 CLSiSCREEN0,0,8:PLAVO3LlOAIREPE'5OL 

ALADODOPEDOL4900L96DO* 

2004 or--7:LOCATE0,9,9 

2883 AE-INTfRMD' l>47,.l:IF AE-8 THEN 260 



3918 COL0R8,6tATTRBl, 1 :LDCATE4, 14,0:PPIN 

T* 1 2 3* 

3813 BOX <115,78>-<I6*>,9B>,4 

3B28 PLAY-02L3REPESISILA3IS0": INF-mt G 

3023 SCREEN7,4,4IF0RI-I T01888I NEXT 1 1 3CP 

EEN8,6,8 

3030 ATTRB8,9!IF G)4 OR G< 1 THEN 3686 

3040 IF G»l THEN TY-2OiZZ"280 

3049 IF G-2 THEN TY-I3iZZ-226 

3868 IF C-3 THEN TY-16IZZ-I99 

3989 PLAY*O3AILS8D0DODOSIDOLASOHin|PEi,H 

96FA- 

4999 CLS'COLOR8,0 

3988 G0T04 . 



THE WONDERFUL ADVENTURES OF 
MICHE AND MICHA 



BRUCE LEE sur CBM 64, APPLE et SPECTRUM 



•"Ham Tchaiti ... Hmuuu. 
J'lai eu.. Haha. 

•Koukaiiiit Schlaff! Tchock! 
PandaiHagl! 

■C est un hommage (dixit 
Miche Lee lido's des jeunes 
karalequois). 

-Attentionl Dans les trois 
lignes qui precedent, vous 
pouver trouver en vrac: un 
hommage a Franquin. a Bruce 
Lee. a Johnny Hallyday. a 
Miche Lee. a Goossens. a 
Bruce Micha (le |umeau de 
lautre). 

■Envoyez vos reponses. avec 
le cheque, a Miche et Micha... 
En attendant, j'ai enfin vu 
toutes les lanternes entre les 
mams de Miche Lee (lidole 
des jaunes karatequis). Atten- 
tion, ce ne sont pas des ves- 
sies 1 Ca y est, le niveau deux 
nous est ouvert: en fait, cest 
le niveau mfeneur. Les pian- 
cher-tronconneuses sont plus 
mortals que ces sacres che- 
valiers de la mort qui houspil- 
lent Miche Lee (lidole des 
complexes du Tai Chi). Nest- 
ce pas'' 

•BanzaiiiiiiiiiiiiiimniNIM (et 

Bruce Micha ((le Irere de 
sang de lautre (((le premier))) 
)) se prend un vieux coup de 
tatane en travers de lag! et 
s'ecrou'e sur le tatami.) Mais 
ca ne suffit pas a I'abattre... II 
se releve. les yeux mjectes de 
sang et la fureur degoulinant , 
de ses babines acerees, 
bleues. et latte le pauvre Fa 
Bnsli (un copain ({cest une 
vanne (((ca commence a etre 
complique. les parentheses))) 
)) ) qui s'etale et disparait 
(aeon David Vincent. Sauf 
qui! est vert. 

-Facile, deconne. dis n'importe 
quoi... Facile a dire, au mo- 
ment oli les geysers se deci- 
dent a balancer des langues 



par MCC. 

de feu, au lieu du sake riabi- 
tuel 

-Slaiiii!.. (et Fa Bnsli {(deja 
cite)) se transforme en torche 
humaine ((quoique meprisa- 
ble)) ). 

■Miche Lee (lidole des jaunes 
d'oeuls egares el des karate- 
tonbacakozdelordinateurkeje- 
kontisk) se jette tete baissee 
dans la tontaine et galope 
(hein?) tel J.C., sur I'eau sous 
pretexts que I'eau qui coule 
n'amasse pas mousse mais 
rapproche des vessies lanter- 
nees (nous sommes en Chine 
((champion (((non, lampion))) 
de Chine)) mais qui...). II bon- 
dit. tel Cheng 1'lnvincible et 
relombe en souplesse sur ses 
qualre pattes. comme tout 
felm qui se respecle. 
-Et Bruce Micha (le brother 
((en francais frere)) de I'autre 
((deja cite (({plusieurs fois 
((((voir plus haul)))) ))) )) ) 
selance de tout son poids, 
pardon sa vitesse, pour aller 
degommer la lanterne a I'au- 
tre bout du ravin, se plante. 
va se desintegrer sur les 
lasers, bleus. propres. bref. 
va se desintegrer. voila. 
-Attends, j'me -fais le cavalier 
noir et je suis a toi. 
-J'altends rien du tout! Hon- 
gawa! Tiens, prends-en pour 
ton grade! Et re-tiens! Dans 
t'os! Et Pat! T'es mort! Et 
dans la lancee le cavalier 
noir! Schlock! (allusion) Mort 
aussi! Et la belle princesse 
que je devais sauver! Ka- 
doonk! Dans I'esiomac! Elle 
se releve! Poing! Dans I'occi- 
pital! (occis. done Hopital) 
Elle est morte! Un chien qui 
passait par la. sans fien de- 
mander a personnel Clic! Je 
lui agrafe les genoux ensem- 
ble (allusion)! Et cette tele im- 
becile sur laquelle je 



m'enerve depuis tout a 
I'heurel Trrakksss 1 Un bon 
coup de guitare electrique 
dans le tube bouddhique (al- 
lusion, allusion)! Et mot! J'ai 
une tronche de con! Ailez, 
douze pharmacies de barbitu- 
riques derriere la cravate (al- 
lusion)! 

Arghhhhhhhhhhhhhh.,., 
Illusion, illusion... Miche Lee 
s'excuse de ne pouvoir assis- 
ter a la tin de la projection du 
fait d'un derangement de la 
lanterne (euh de la vessie) du 
a une overdose de coups 
recus (bas ou pas bas. e'est 
pareil au meme). Bien en- 
tendu. vous relrouverez Miche 
Lee (I'idole des jeunes S 
comme une lisle {(electorate 
(((du meilleur programme 
commun du mois))) )) ) dans 
un prochain episode, la se- 
maine prochaine. intitule: les 
adventur' Destroy of ze deux 
punkarates Miche (dit Nofutur) 
et Micha (dit (uckyend). 

Miche et Micha 




PETITES ANNONCES 
GRATUITES 



ECHANGE CASIO PB 100 * mlertace 
magneto I o'lension m6mo>r* r()M 1) 

* 120 programmes (|eu«. rnattis. ulili- 
lauBSI contra CANON X07 Lnurwnt 
MOLLICONE 107 bis ruo C Coqueim 
94400 VITF1Y SUR SEINE 

ACHETE pour TI99 4A carte contrpleur 
de disqiieiie J Marc RECCA - SERRA. 
SENTE DE ST ETIENNE 60350 CHEL- 
LES Tel (4) 420 07 27 { de 9 a IBM) 

RECHERCHE pour T199 4A module 
£* landed basic > manuel Nicolas 
GUILBAUO 5 rue Georges Clemenceau 
85340 OLONNES SUR MER Tel (51) 
95 07 15 

VENDS ORIC 1 (10 B3) 4BK avec pnso 
Perilel ^ alimentations * 30 program- 
mes a! listings * Irvre ORIC pour tous 
Le lout 1950 F MARTIN HervG 11 av 
Max Robespierre 93150 LE BLANC 
MESNIL Tel 867 75 09 (apres 18 H) 

VENDS TI99 4A en bon etat I priso 
Penlel + cordon K7 * manettes de 
jeu* ■ super magneto SANYO pour Tl 
- Basic Etendu (livre en anglais) * 
module Munch Man et Parsec < iwre 
praiique do lOrdmaieur Niveau 2*2 
irvres 99 magasine + 2 K7 do jeux 
Serge MOC N«Jeo,generstrasse. 53 
5I60DUEREN AJlemagne 

VENDS ZX 81 16K * K7 de ieu ■ da- 
vier a touches * livre de programma- 
tion * nombreuit programmes Sous 
garanlie (jum 1984) Prut 1000 F Ro- 
land TERRY Tel: (50) 21 37 73 

VENDS CANON X07 12 84) avec cor- 
don K7 t carte miamoire 8K -* impn- 
manle graph ique avec rouleau papier 

♦ stylos ainsi quo de nomrjreux pro- 
grammes do jeux. logiods pfotossron- 
nels et langage FORTH amsi que As- 
sembler (Basic) Desassombleur 
(Basic) (vatour des programmes 1500 
F ) t renseignemenls sur la ROM Jo 
tout 4000 F ou 2700 F. sans impn- 
manle C LECLERCQ 69 rue des 
Blancs v.lams 93100 MONTREUIL Tel 
855 15 36 

VENDS pour TI994A Basic Etendu * 
manuel en frangais; 450 F. Mini m6- 
moire ♦ Initiation a I assemblour; 550 
F Black jack ot Poker; 150 F Mash. 
Treasure Island, Return to pirate's isle. 
Hunt to the wumpus: de 95 160 F 
p.eco Tel: 878 94 42 
VENDS TRS 80 mod 3 16K |11 Bit • 
doc + Programmes * magneto t- cor- 
dons 4000 F J.C. DELEPiNE Tel: 866 
91 98 tap'SS 19H). 



VENDS pour H99 4A Bas* etendu 
^ynthenseiir • ttavc #»ndu p»r so*- 
rnAme • Tractors fot>es • nombreux 
programmes 1500F It mcuMtieimt 
100 el 200 F chaque IWumpus, 
Echecs. Ti invaders. Cars wars. CNt- 
som wail. Munchman. Parsec. Aipiner. 
Indoor soccer. Treasure Island) Cta-re 
GERMAIN-ROBIN 137 av de Wagram 
75017 PARIS Tel 766 37 81 

VENDS TI99 4A • cable magneto > 
interlace UHF Secern * in/re "Jeux W 
programmes pour Tl" Tome U - NBt- 
tion a i assemblour • Module Pole Po- 
sition • les techniques de programmes 
de jeux 1 et 2 • K7 de programmes 
Basic Le lout en tres bon etat 1900 F 
Christian LI Tel 354 31 76 

VENDS ORIC 1 48K - Pentol - live 
t 12 K7: 2000 F, Bernard HOURSEAU 
Tel 842 40 42, 

VENDS COMMODORE 64 Ko + inter- 
lace SECAM UHF < lecteur • enrogis- 
Ireur K7 * joystick f K7 (eux + r>om- 
PrBUX ouvrages 4200 F. Ertc 

BOUKILA Tel. 355 09 94 (de 19H a 
22H), 

ACHETE pour TI99 4A K7 Tl LOGO. 
Beginning grammar. Jeu d'echecs. 
Syntheiiseur de parole 4 Speech edi- 
tor Jean Luc RIVES Tei (32) 50 71 



VENDS COMMODORE 64 * locteur 
(fisquetto et K7 I momteur COuleur son 
• joystick • crayon oplique • pro- 
grammes Nvres et cartouches jeux 
(03 8^): 10 000 f J. MUSARD 5 
square St Just 78280 GUYANCOURT 

VENDS Tl 58C mftmoire constanto. 
480 pas de programmes) - Irvres et 
nombreux programmes ( nousse et 
alimentation secieur 350 F Demandor 
Xavier au 982 86 30 

VENDS LYNX 48 Ko • adapiateur 
Secam • programmes * manueis • 
magneto spc&ai 3500 F Christian 
MAURY 3 impasse Sipuet Rivoire 
38230 CHARVIEU 

VENDS TI99 4A * cordon K7 4 ma- 
nuels * nombrouses K7 programmes 
i Avm jeux pour Tl; 800 F. Le lout 
VENDS magneto bandes magnetiquos, 
3 viiesses •- 5 bandes 2 x 4H Vendu 
650 F P MORISSET Tel: 726 13 42 

VENDS LYNX 48K 8 bils garanti 5 
mois : 2600 F Monsieur BERNHARD 
Tel. (6) 4M 31 84 



VENDS TI994A • man*a»s da i*u • 
mqnm K7 c omp t Wt * o*t» K7 - 
module Basic Etendu • Pars*e • ear 
war - t#vr« "j*ut at prr>g»arwn«j «ur 
Tl Tomes I. II at l« ♦ fwea "50 pro- 
grammas pour Tr < 2 K7 jawx • boa* 
da rsngemant type sftacM c«aa 
comprefwjnt conso*a magnate er Pan- 
let La tout 3200 F (ii 83) Man: Dl- 
JOUX 41 ov da la R*0uc*oue 92350 
PLESSIS ROBINSON TH 630 40 13 
(aces 18H| 

VENDS CGV PHS 60 300 F Pour 
SPECTRUM .niertace Panial 250 F 
K7 de teux Sat« drve. Jat sat «■•>. 
Coda name mat. Oracks cava 60 F 
Sabe won 80 F po>r>»ox 90 F K*e*- 
capteur cob an 45 F K7 de raux at d m- 
los 40 F Mons^ur HOUSSIER 36 rue 
de turtn 75006 PARIS Tel 522 42 « 

VENOS ZX SPECTRUM 48K PAL * 

imprimame * rmcrodrive avec ZXi • 
K7 jeu [vaieu* 5324 F ) vendu 4100 F 
Henr. FRISCH Tel 759 3t 26 (Dureaul 
ou 624 38 45 (apres 18H) 

VENDS TO 7 (1283) . magneto « 
basic * Trap et P*tor * manettas de 
jeux - Irvres Lo tout 2500 F Stepnana 
PRESSAIS T<H 302 75 69 

VENDS PC 1500 sous garantie. etat 
neul - manuels * nombreux program- 
mes : 1500 F (a debattre) impnmaMe 
* Interlace K7 CE 150 t magneto CE 
152 - Exlonsion 16K CE 161 G de 
LABAREYRE 23 avenue Edouard M.- 
enefln 83000 I RfcK Ml 
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Texas Instruments 



ACCESSOIRES TJ WH 



"■.-'" 



Mjgn«o-<«i«tM comp»tiWf T I Lanuy 

avec compter*' * cAWe magneto tampti 

EF-BWCXSOFl'ICriON-rRACTION 

ImpnuMrte imlfciwh* GP 500 

tmertace pjraWk; fuarteure pout Ti^9 

PlfOGRAMMATJON 

E«pn*d twjc Europe Manurl jngLw 

E'tpnOr^t tan*. Europe MjouM fan^aa* 

tMmam erVtnym 32 K ex: 

n tOGO II m laoncjoon 

6*i*C par 101 -m*me 

Aide J u programmATJon 



PRIX TTC 




50000 


' ; 


100.00 


1 1 


2I0XO 




3^0.00 


n 


4 1 50,00 




2 500.00 




: 09000 


'! 



ORGANISATKJN 

Conini rmanetn 
OHJonrVnwr 

Owonrappona 

Stxtada 

Dcak 

GeUWnprivfp 

MODULES EDUCATION 
•■ri- •■■ii,:-.-ui I M/.00 I 
'omn 'loamrr 11 14 / Uj 1; | 
Addition -Onion I 147.00 r l 
O"4*or><»mntwi | 14700 | D 

MOOUIES LOISIRS 



750.00 


n 


800.00 




1 J40.00 




895 00 
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70.00 


1 


75.00 


1 1 


75.00 


, t 






J 75.00 


■ 


706.00 


1 : 


360.00 


1 1 


360O0 


1 ■ 



Eafty UrmOHYi I 

*-"H"lX|H/H' 

■^■iiiii.ii' .iii'.,. 1 



CtrmlkxM 


147^0 




OBirto 


20600 


MavWo" 


14700 




Tl-invaijpr", 


20600 


JpuxBeuoi 


14700 




Mi**HM*i 






1 4 /.ao 








Jr^ii B«(o II 


147.00 








NOUVEAUX LC 


7GKIELS TEXAS 




r .-,,,: | ., .... 


750.00 








DtmonJBM 


250,00 








Ma-Ji 


750.00 








Hurler innr 


75000 






750X0 


Mcrou#o«n 


250,00 




MooriMweprr 


rj) !/i 



PROGRAMMES TEXAS EDUCATION : 

WrorJ au tl V>.'4 [ 1 1 

mtrcd.au ti79'i[2j 

U-. mtirw^^-.Jr; \»<jrf jmver. Orjmt 1 1 1 
Ur. trcinqun des programmr-, ae jrux |2| 
CempkronBrt mutop« 



MEBOOGIOELS SOFTAWARE 

IIN"I BjtjC vnp* K? I2jnu 
n r*- 2 Bam ettnrJu 1 7jpi« 

II Ifl t*. ■-*■">-, J r| 



7SO0 


1 | 


75,00 




7500 


1 1 


75.00 


1 1 


9500 




95O0 
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150.00 


1, 


150.00 




90,00 


1 i 



DISPONIBLE : EXTENDED BASIC EUROPE 

AVEC MANUEL FRANQAIS 800 F 




INTERFACE PARALLELE IMPRIMANTE 1.090 F 
BRANCHEMEMT IMMED1AT EXTENSION 32 K 1.340 F 



I |p™«-.***!lrag | ?85.00 | D [ 



MOOUl£S FUhJWABE : 

f&caittai! I iWjDO I n 

ytennmae I 285.00 I (1 



•EXTENOED BASIC DISPONIBLE FIN OCTOBRE. 



>|OI 

J I n I 



PROMOVON 



LOTW1 




|p M-yJuir BALtC t tENDU nvmxl e 

K7 BASIC PAR SOI-MEME 

K7 AIDE A LA PROGRAMMArtON 


i fran0i 










LOTrV>2 




1* MocWr BASIC ETENt>J rrwnuel ( 
K7 BASIC PAR SOI-MEIvte 
K7 AIDE A I.A PROGRAMMATtON 
EXTENSION MEMOIRS 32 K EXT 


n U.v*,w. 


L ensemble 


.. 2.240,00 F. 


LOT N" 3 




Le Modi*- liAStC i rGNDU nwiwl e 

,-li,'. ■ vi '■< ::■; ..... i; | -i 
Fl KXiON"^ 


"-"'■■"-■ 


L'ensemble 


.. 2.295,00 F. 




LOT N° 4 




1* Module BASIC f: [ENOU rrurmcl a 
EXTENSION MEMOIRE 32 K EXT 


i U.myn 




Lcnsembte 6.560,00 F. 



LOT N° 5 

Le Module BASIC ETENDU manuel en ( 

MAGNETO CASStTtE tANSAY 

COMPTEUR + CABLE MAGNETO 

MOfJUIE JEUX 

SUPER DEMON ATTAQUE 

8URGERTIME 

MUCHMAN 

K/ INTRODUCTION A1JX JEUX N" 1 

K7 INTRODUCTION AUX JEUX N" 2 

L ensemble 



LOT N° 6 

Pour reui qui poiterJent te 
controleur et le le<teur de 

dbguettes 

I CARTE P. CODE 
I UCyjPASCAl COMPIIEUK 
I UTMJ PASCAI IINKItr 
I UCSD PASCAL EDUEUR 

I EDITOR ASSCMIilfUW 

i HI OU III MAIMS 

I DISOUETTE nCIIIIR dADHlSSLS 

l Dl'/jlll ill Allil AIAPROGRAMM II 

I DISOUETTC AKJE A IA PROGRAMM III 

L ensemble 3.500,00 F. 



Deux plus^z 

7*our votre Tl 99/4 /\ une 

extension memolre 32 K Ram 

exterleure. 

Vous allez ainsi, avec 48 K, 

reallser cfes programmes plus 

performants. 

Un Interface parallele type 

Centronics vous permet de 

connecter des Imprlmantes 

comme Epson ou Selkoscha. 



BON DE COMMANDE 

TARIFS OCTOBRE 1984 



I MODUiC BASK f-TENDU nwxiel en fr.inc^s 

t MODULE n CALC 

I MODUIE CONSCIL FINANCtEfl 

I MOOUlf GFSriON Df RAPPORTS 

) FvN )l-l ill rJf EICHIER 

I INIERrACF f'AHAJIH.E 1 1 99/4 

I IMPRIMANTE GP 500 SCIKOCKA 

Lensemble 5.300,00 F. 



Ptfnom 

Admse 
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Uvrnlton dei ptodulti dlfponlblei mill SJouti. 



